Vm-dev June 2014

vm-dev@lists.squeakfoundation.org

37 participants
268 discussions

VM Maker: VMMaker.oscog-eem.779.mcz
by commits＠source.squeak.org 24 Jun '14

24 Jun '14

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.779.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.779 Author: eem Time: 23 June 2014, 7:07:37.544 pm UUID: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 Ancestors: VMMaker.oscog-eem.778 Fix some sign issues with free space tallying to allow Spur to shrink memory and answer via primitiveVMParameter heap sizes above 2Gb. Add longPrintInstancesOf:/longPrintInstancesWithClassIndex: for debugging. Fix in-image compilation given the checkAllocFiller putch. =============== Diff against VMMaker.oscog-eem.778 =============== Item was added: + ----- Method: CurrentImageCoInterpreterFacade>>getCheckAllocFiller (in category 'cog jit support') ----- + getCheckAllocFiller + ^coInterpreter getCheckAllocFiller ifNil: [false]! Item was added: + ----- Method: ObjectMemory>>longPrintInstancesOf: (in category 'debug printing') ----- + longPrintInstancesOf: aClassOop + "Scan the heap printing the oops of any and all objects that are instances of aClassOop" + | oop | + <api> + oop := self firstAccessibleObject. + [oop = nil] whileFalse: + [(self fetchClassOfNonImm: oop) = aClassOop ifTrue: + [self longPrintOop: oop; cr]. + oop := self accessibleObjectAfter: oop]! Item was changed: ----- Method: SpurGenerationScavenger>>newSpaceCapacity (in category 'accessing') ----- newSpaceCapacity + <inline: false> + <returnTypeC: #usqInt> ^eden limit - (futureSpace start min: pastSpace start)! Item was changed: ----- Method: SpurMemoryManager class>>declareCVarsIn: (in category 'translation') ----- declareCVarsIn: aCCodeGenerator self declareCAsOop: #( memory freeStart scavengeThreshold newSpaceStart newSpaceLimit pastSpaceStart lowSpaceThreshold freeOldSpaceStart oldSpaceStart endOfMemory firstFreeChunk lastFreeChunk) in: aCCodeGenerator. self declareCAsUSqLong: (self allInstVarNames select: [:ivn| ivn endsWith: 'Usecs']) in: aCCodeGenerator. aCCodeGenerator var: #freeListsMask type: #usqInt; var: #freeLists type: #'sqInt *'; var: #classTableBitmap type: #'unsigned char *'; var: #objStackInvalidBecause type: #'char *'; var: #highestObjects type: #SpurCircularBuffer; var: #unscannedEphemerons type: #SpurContiguousObjStack; var: #heapGrowthToSizeGCRatio type: #float; + var: #heapSizeAtPreviousGC type: #usqInt; + var: #totalFreeOldSpace type: #usqInt. - var: #heapSizeAtPreviousGC type: #usqInt. aCCodeGenerator var: #remapBuffer declareC: 'sqInt remapBuffer[RemapBufferSize + 1 /* ', (RemapBufferSize + 1) printString, ' */]'. aCCodeGenerator var: #extraRoots declareC: 'sqInt *extraRoots[ExtraRootsSize + 1 /* ', (ExtraRootsSize + 1) printString, ' */]'! Item was added: + ----- Method: SpurMemoryManager>>longPrintInstancesOf: (in category 'debug printing') ----- + longPrintInstancesOf: aClassOop + "Scan the heap printing the oops of any and all objects that are instances of aClassOop" + <api> + | classIndex | + classIndex := self rawHashBitsOf: aClassOop. + classIndex ~= self isFreeObjectClassIndexPun ifTrue: + [self longPrintInstancesWithClassIndex: classIndex]! Item was added: + ----- Method: SpurMemoryManager>>longPrintInstancesWithClassIndex: (in category 'debug printing') ----- + longPrintInstancesWithClassIndex: classIndex + "Scan the heap printing any and all objects whose classIndex equals the argument." + <api> + <inline: false> + self allHeapEntitiesDo: + [:obj| + (self classIndexOf: obj) = classIndex ifTrue: + [coInterpreter longPrintOop: obj; cr]]! Item was changed: ----- Method: SpurSegmentManager>>shrinkObjectMemory: (in category 'growing/shrinking memory') ----- shrinkObjectMemory: delta + <inline: false> + <var: #delta type: #usqInt> | shrinkage emptySeg | + <var: #shrinkage type: #usqInt> <var: #emptySeg type: #'SpurSegmentInfo *'> shrinkage := delta. [emptySeg := self findEmptySegNearestInSizeTo: shrinkage. emptySeg notNil] whileTrue: + [emptySeg segSize > shrinkage ifTrue: + [^self]. + shrinkage := shrinkage - emptySeg segSize. - [shrinkage := shrinkage - emptySeg segSize. manager detachFreeObject: (manager objectStartingAt: emptySeg segStart). self removeSegment: emptySeg]! Item was changed: ----- Method: SpurSegmentManager>>totalBytesInSegments (in category 'snapshot') ----- totalBytesInSegments | total | + <var: #total type: #usqInt> total := 0. 0 to: numSegments - 1 do: [:i| total := total + (segments at: i) segSize]. ^total!

1 0

[commit][3014] CogVM source as per VMMaker.oscog-eem.779
by commits＠squeakvm.org 24 Jun '14

24 Jun '14

Revision: 3014 Author: eliot Date: 2014-06-23 19:18:33 -0700 (Mon, 23 Jun 2014) Log Message: ----------- CogVM source as per VMMaker.oscog-eem.779 Rewrite memory allocation on linux for Spur. Arrange that the heap can grow above 2Gb without any large initial alloc. Fix some sign issues with free space tallying to allow Spur to shrink memory and answer via primitiveVMParameter heap sizes above 2Gb. Add longPrintInstancesOf:/longPrintInstancesWithClassIndex: for debugging. Add missing build scripts for itimer heartbeat Spur linux VMs. Modified Paths: -------------- branches/Cog/nscogsrc/vm/cointerp.c branches/Cog/nscogsrc/vm/cointerp.h branches/Cog/nscogsrc/vm/gcc3x-cointerp.c branches/Cog/nscogsrc/vm/interp.h branches/Cog/nscogsrc/vm/vmCallback.h branches/Cog/nsspursrc/vm/cointerp.c branches/Cog/nsspursrc/vm/cointerp.h branches/Cog/nsspursrc/vm/gcc3x-cointerp.c branches/Cog/nsspursrc/vm/interp.h branches/Cog/nsspursrc/vm/vmCallback.h branches/Cog/nsspurstacksrc/vm/gcc3x-interp.c branches/Cog/nsspurstacksrc/vm/interp.c branches/Cog/nsspurstacksrc/vm/interp.h branches/Cog/nsspurstacksrc/vm/vmCallback.h branches/Cog/platforms/unix/vm/Makefile.in branches/Cog/platforms/unix/vm/sqUnixMain.c branches/Cog/platforms/unix/vm/sqUnixMemory.c branches/Cog/scripts/uploadvms branches/Cog/sistasrc/vm/cointerp.c branches/Cog/sistasrc/vm/cointerp.h branches/Cog/sistasrc/vm/gcc3x-cointerp.c branches/Cog/sistasrc/vm/interp.h branches/Cog/sistasrc/vm/vmCallback.h branches/Cog/spursistasrc/vm/cointerp.c branches/Cog/spursistasrc/vm/cointerp.h branches/Cog/spursistasrc/vm/gcc3x-cointerp.c branches/Cog/spursistasrc/vm/interp.h branches/Cog/spursistasrc/vm/vmCallback.h branches/Cog/spursrc/vm/cointerp.c branches/Cog/spursrc/vm/cointerp.h branches/Cog/spursrc/vm/gcc3x-cointerp.c branches/Cog/spursrc/vm/interp.h branches/Cog/spursrc/vm/vmCallback.h branches/Cog/spurstacksrc/vm/gcc3x-interp.c branches/Cog/spurstacksrc/vm/interp.c branches/Cog/spurstacksrc/vm/interp.h branches/Cog/spurstacksrc/vm/vmCallback.h branches/Cog/src/vm/cointerp.c branches/Cog/src/vm/cointerp.h branches/Cog/src/vm/cointerpmt.c branches/Cog/src/vm/cointerpmt.h branches/Cog/src/vm/gcc3x-cointerp.c branches/Cog/src/vm/gcc3x-cointerpmt.c branches/Cog/src/vm/interp.h branches/Cog/src/vm/vmCallback.h branches/Cog/stacksrc/vm/gcc3x-interp.c branches/Cog/stacksrc/vm/interp.c branches/Cog/stacksrc/vm/interp.h branches/Cog/stacksrc/vm/vmCallback.h Added Paths: ----------- branches/Cog/build.linux32x86/squeak.cog.spur/build.assert.itimerheartbeat/mvm branches/Cog/build.linux32x86/squeak.cog.spur/build.debug.itimerheartbeat/mvm branches/Cog/build.linux32x86/squeak.cog.spur/build.itimerheartbeat/mvm branches/Cog/platforms/unix/vm/sqUnixSpurMemory.c Property Changed: ---------------- branches/Cog/platforms/Cross/vm/sqSCCSVersion.h Added: branches/Cog/build.linux32x86/squeak.cog.spur/build.assert.itimerheartbeat/mvm =================================================================== --- branches/Cog/build.linux32x86/squeak.cog.spur/build.assert.itimerheartbeat/mvm (rev 0) +++ branches/Cog/build.linux32x86/squeak.cog.spur/build.assert.itimerheartbeat/mvm 2014-06-24 02:18:33 UTC (rev 3014) @@ -0,0 +1,27 @@ +#!/bin/bash +# assert VM with VM profiler and itimer heartbeat +INSTALLDIR=assert/cogspurlinux +OPT="-g3 -O1 -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -DDEBUGVM=0" + +if [ $# -ge 1 ]; then + INSTALLDIR="$1"; shift +fi + +echo -n "clean? " +read a +case $a in +n|no|N|NO) echo "ok but this isn't safe!!";; +*) test -f Makefile && make reallyclean +esac +test -f config.h || ../../../platforms/unix/config/configure --without-npsqueak \ + --with-src=spursrc --with-plugins=src/plugins \ + CC="gcc -m32" \ + CXX="g++ -m32" \ + CFLAGS="$OPT -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=0 -DITIMER_HEARTBEAT=1" \ + LIBS="-lpthread -luuid" \ + LDFLAGS=-Wl,-z,now +rm -f vm/sqUnixMain.o # nuke version info +rm -rf ../../../products/$INSTALLDIR +# prefer make install prefix=`readlink -f \`pwd\`/../../../products/$INSTALLDIR` +# but older linux readlinks lack the -f flag +make install prefix=`(cd ../../../;pwd)`/products/$INSTALLDIR 2>&1 | tee LOG Property changes on: branches/Cog/build.linux32x86/squeak.cog.spur/build.assert.itimerheartbeat/mvm ___________________________________________________________________ Added: svn:executable + * Added: branches/Cog/build.linux32x86/squeak.cog.spur/build.debug.itimerheartbeat/mvm =================================================================== --- branches/Cog/build.linux32x86/squeak.cog.spur/build.debug.itimerheartbeat/mvm (rev 0) +++ branches/Cog/build.linux32x86/squeak.cog.spur/build.debug.itimerheartbeat/mvm 2014-06-24 02:18:33 UTC (rev 3014) @@ -0,0 +1,27 @@ +#!/bin/bash +# debug Spur VM with VM profiler and itimer heartbeat +INSTALLDIR=debug/cogspurlinux +OPT="-g3 -O0 -DDEBUGVM=1" + +if [ $# -ge 1 ]; then + INSTALLDIR="$1"; shift +fi + +echo -n "clean? " +read a +case $a in +n|no|N|NO) echo "ok but this isn't safe!!";; +*) test -f Makefile && make reallyclean +esac +test -f config.h || ../../../platforms/unix/config/configure --without-npsqueak \ + --with-src=spursrc --with-plugins=src/plugins \ + CC="gcc -m32" \ + CXX="g++ -m32" \ + CFLAGS="$OPT -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=0 -DITIMER_HEARTBEAT=1" \ + LIBS="-lpthread -luuid" \ + LDFLAGS=-Wl,-z,now +rm -f vm/sqUnixMain.o # nuke version info +rm -rf ../../../products/$INSTALLDIR +# prefer make install prefix=`readlink -f \`pwd\`/../../../products/$INSTALLDIR` +# but older linux readlinks lack the -f flag +make install prefix=`(cd ../../../;pwd)`/products/$INSTALLDIR 2>&1 | tee LOG Property changes on: branches/Cog/build.linux32x86/squeak.cog.spur/build.debug.itimerheartbeat/mvm ___________________________________________________________________ Added: svn:executable + * Added: branches/Cog/build.linux32x86/squeak.cog.spur/build.itimerheartbeat/mvm =================================================================== --- branches/Cog/build.linux32x86/squeak.cog.spur/build.itimerheartbeat/mvm (rev 0) +++ branches/Cog/build.linux32x86/squeak.cog.spur/build.itimerheartbeat/mvm 2014-06-24 02:18:33 UTC (rev 3014) @@ -0,0 +1,31 @@ +#!/bin/bash +# Spur VM with VM profiler and itimer heartbeat +INSTALLDIR=cogspurlinux +# Some gcc versions create a broken VM using -O2 +case `gcc -v 2>&1 | grep version | sed 's/gcc version *//'` in +3.4.*) OPT="-g -O1 -DNDEBUG -DDEBUGVM=0";; +*) OPT="-g -O2 -DNDEBUG -DDEBUGVM=0";; +esac + +if [ $# -ge 1 ]; then + INSTALLDIR="$1"; shift +fi + +echo -n "clean? " +read a +case $a in +n|no|N|NO) echo "ok but this isn't safe!!";; +*) test -f Makefile && make reallyclean +esac +test -f config.h || ../../../platforms/unix/config/configure --without-npsqueak \ + --with-src=spursrc --with-plugins=src/plugins \ + CC="gcc -m32" \ + CXX="g++ -m32" \ + CFLAGS="$OPT -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=0 -DITIMER_HEARTBEAT=1" \ + LIBS="-lpthread -luuid" \ + LDFLAGS=-Wl,-z,now +rm -f vm/sqUnixMain.o # nuke version info +rm -rf ../../../products/$INSTALLDIR +# prefer make install prefix=`readlink -f \`pwd\`/../../../products/$INSTALLDIR` +# but older linux readlinks lack the -f flag +make install prefix=`(cd ../../../;pwd)`/products/$INSTALLDIR 2>&1 | tee LOG Property changes on: branches/Cog/build.linux32x86/squeak.cog.spur/build.itimerheartbeat/mvm ___________________________________________________________________ Added: svn:executable + * Modified: branches/Cog/nscogsrc/vm/cointerp.c =================================================================== --- branches/Cog/nscogsrc/vm/cointerp.c 2014-06-23 23:03:59 UTC (rev 3013) +++ branches/Cog/nscogsrc/vm/cointerp.c 2014-06-24 02:18:33 UTC (rev 3014) @@ -1,9 +1,9 @@ /* Automatically generated by - CCodeGeneratorGlobalStructure VMMaker.oscog-eem.775 uuid: dd27f525-f775-49fc-8bf0-2463d78bfb97 + CCodeGeneratorGlobalStructure VMMaker.oscog-eem.779 uuid: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 from - CoInterpreter VMMaker.oscog-eem.775 uuid: dd27f525-f775-49fc-8bf0-2463d78bfb97 + CoInterpreter VMMaker.oscog-eem.779 uuid: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 */ -static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.775 uuid: dd27f525-f775-49fc-8bf0-2463d78bfb97 " __DATE__ ; +static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.779 uuid: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 " __DATE__ ; char *__interpBuildInfo = __buildInfo; @@ -737,6 +737,7 @@ sqInt loadBitBltFrom(sqInt bb); static sqInt loadImageSegmentFromoutPointers(sqInt segmentWordArray, sqInt outPointerArray) NoDbgRegParms; void loadInitialContext(void); +void longPrintInstancesOf(sqInt aClassOop); void longPrintOop(sqInt oop); void longPrintReferencesTo(sqInt anOop); sqInt longStoreBytecodeForHeader(sqInt methodHeader); @@ -1172,7 +1173,7 @@ static void rewriteMethodCacheEntryForExternalPrimitiveToFunction(void (*localPrimAddress)(void)) NoDbgRegParms; static sqInt roomToPushNArgs(sqInt n) NoDbgRegParms; static void runLeakCheckerForFullGC(sqInt fullGCFlag) NoDbgRegParms; -static usqInt safeObjectAfter(sqInt oop) NoDbgRegParms; +static sqInt safeObjectAfter(sqInt oop) NoDbgRegParms; static sqInt safePrintStringOf(sqInt oop) NoDbgRegParms; usqInt scavengeThresholdAddress(void); EXPORT(sqInt) sendInvokeCallbackContext(VMCallbackContext *vmCallbackContext); @@ -2061,7 +2062,7 @@ /* 574 */ (void (*)(void))0, /* 575 */ (void (*)(void))0, 0 }; -const char *interpreterVersion = "Newspeak Virtual Machine CoInterpreter_VMMaker.oscog-eem.775"; +const char *interpreterVersion = "Newspeak Virtual Machine CoInterpreter_VMMaker.oscog-eem.779"; sqInt minBackwardJumpCountForCompile = MinBackwardJumpCountForCompile /* 10 */; volatile int sendTrace; @@ -23980,15 +23981,17 @@ sqInt header1; sqInt header2; sqInt header3; + sqInt header4; usqInt lastWord; sqInt newFreeChunk; sqInt newOop; - usqInt next; + sqInt next; sqInt oop; sqInt realHeader; sqInt sz; sqInt sz1; sqInt sz2; + sqInt sz3; sqInt target; usqInt w; @@ -23999,7 +24002,21 @@ /* begin objectAfterWhileForwarding: */ header2 = longAt(oop); if ((header2 & MarkBit) == 0) { - next = ((sqInt) (objectAfter(oop))); + /* begin objectAfter: */ + if (!(asserta(oopisLessThan(oop, GIV(freeStart))))) { + error("no objects after the end of memory"); + } + if (((longAt(oop)) & TypeMask) == HeaderTypeFree) { + sz2 = (longAt(oop)) & AllButTypeMask; + } + else { + /* begin sizeBitsOf: */ + header3 = longAt(oop); + sz2 = ((header3 & TypeMask) == HeaderTypeSizeAndClass + ? (longAt(oop - (BytesPerWord * 2))) & LongSizeMask + : header3 & SizeMask); + } + next = (oop + sz2) + (headerTypeBytes[(longAt(oop + sz2)) & TypeMask]); goto l1; } fwdBlock1 = (header2 & AllButMarkBitAndTypeMask) << 1; @@ -24014,7 +24031,7 @@ else { sz1 = realHeader & SizeMask; } - next = ((sqInt) ((oop + sz1) + (headerTypeBytes[(longAt(oop + sz1)) & TypeMask]))); + next = (oop + sz1) + (headerTypeBytes[(longAt(oop + sz1)) & TypeMask]); l1: /* end objectAfterWhileForwarding: */; if (!(((longAt(oop)) & TypeMask) == HeaderTypeFree)) { @@ -24068,18 +24085,18 @@ } /* begin safeObjectAfter: */ if (((longAt(newFreeChunk)) & TypeMask) == HeaderTypeFree) { - sz2 = (longAt(newFreeChunk)) & AllButTypeMask; + sz3 = (longAt(newFreeChunk)) & AllButTypeMask; } else { /* begin sizeBitsOf: */ - header3 = longAt(newFreeChunk); - sz2 = ((header3 & TypeMask) == HeaderTypeSizeAndClass + header4 = longAt(newFreeChunk); + sz3 = ((header4 & TypeMask) == HeaderTypeSizeAndClass ? (longAt(newFreeChunk - (BytesPerWord * 2))) & LongSizeMask - : header3 & SizeMask); + : header4 & SizeMask); } - next = ((newFreeChunk + sz2) >= GIV(freeStart) + next = ((newFreeChunk + sz3) >= GIV(freeStart) ? GIV(freeStart) - : (newFreeChunk + sz2) + (headerTypeBytes[(longAt(newFreeChunk + sz2)) & TypeMask])); + : (newFreeChunk + sz3) + (headerTypeBytes[(longAt(newFreeChunk + sz3)) & TypeMask])); assert((next == GIV(freeStart)) || (next == (oopFromChunk(GIV(compEnd))))); if (next == GIV(freeStart)) { @@ -26245,7 +26262,105 @@ marryContextInNewStackPageAndInitializeInterpreterRegisters(activeContext); } + +/* Scan the heap printing the oops of any and all objects that are instances + of aClassOop + */ + void +longPrintInstancesOf(sqInt aClassOop) +{ DECL_MAYBE_SQ_GLOBAL_STRUCT + sqInt ccIndex; + sqInt chunk; + sqInt header; + sqInt header1; + sqInt header2; + sqInt obj; + sqInt obj1; + sqInt oop; + sqInt sz; + sqInt sz1; + sqInt sz2; + + /* begin firstAccessibleObject */ + /* begin oopFromChunk: */ + chunk = startOfMemory(); + obj1 = chunk + (headerTypeBytes[(longAt(chunk)) & TypeMask]); + while ((((usqInt) obj1)) < (((usqInt) GIV(freeStart)))) { + if (!(((longAt(obj1)) & TypeMask) == HeaderTypeFree)) { + oop = obj1; + goto l2; + } + /* begin objectAfter: */ + if (!(asserta(oopisLessThan(obj1, GIV(freeStart))))) { + error("no objects after the end of memory"); + } + if (((longAt(obj1)) & TypeMask) == HeaderTypeFree) { + sz = (longAt(obj1)) & AllButTypeMask; + } + else { + /* begin sizeBitsOf: */ + header = longAt(obj1); + sz = ((header & TypeMask) == HeaderTypeSizeAndClass + ? (longAt(obj1 - (BytesPerWord * 2))) & LongSizeMask + : header & SizeMask); + } + obj1 = (obj1 + sz) + (headerTypeBytes[(longAt(obj1 + sz)) & TypeMask]); + } + error("heap is empty"); + oop = null; +l2: /* end firstAccessibleObject */; + while (!(oop == null)) { + if (((((ccIndex = (((usqInt) (longAt(oop))) >> 12) & 0x1F)) == 0 + ? (longAt(oop - BaseHeaderSize)) & AllButTypeMask + : longAt(((longAt((GIV(specialObjectsOop) + BaseHeaderSize) + (CompactClasses << ShiftForWord))) + BaseHeaderSize) + ((ccIndex - 1) << ShiftForWord)))) == aClassOop) { + longPrintOop(oop); + /* begin cr */ + printf("\n"); + } + /* begin accessibleObjectAfter: */ + /* begin objectAfter: */ + if (!(asserta(oopisLessThan(oop, GIV(freeStart))))) { + error("no objects after the end of memory"); + } + if (((longAt(oop)) & TypeMask) == HeaderTypeFree) { + sz2 = (longAt(oop)) & AllButTypeMask; + } + else { + /* begin sizeBitsOf: */ + header2 = longAt(oop); + sz2 = ((header2 & TypeMask) == HeaderTypeSizeAndClass + ? (longAt(oop - (BytesPerWord * 2))) & LongSizeMask + : header2 & SizeMask); + } + obj = (oop + sz2) + (headerTypeBytes[(longAt(oop + sz2)) & TypeMask]); + while ((((usqInt) obj)) < (((usqInt) GIV(freeStart)))) { + if (!(((longAt(obj)) & TypeMask) == HeaderTypeFree)) { + oop = obj; + goto l1; + } + /* begin objectAfter: */ + if (!(asserta(oopisLessThan(obj, GIV(freeStart))))) { + error("no objects after the end of memory"); + } + if (((longAt(obj)) & TypeMask) == HeaderTypeFree) { + sz1 = (longAt(obj)) & AllButTypeMask; + } + else { + /* begin sizeBitsOf: */ + header1 = longAt(obj); + sz1 = ((header1 & TypeMask) == HeaderTypeSizeAndClass + ? (longAt(obj - (BytesPerWord * 2))) & LongSizeMask + : header1 & SizeMask); + } + obj = (obj + sz1) + (headerTypeBytes[(longAt(obj + sz1)) & TypeMask]); + } + oop = null; + l1: /* end accessibleObjectAfter: */; + } +} + +void longPrintOop(sqInt oop) { DECL_MAYBE_SQ_GLOBAL_STRUCT sqInt byte; @@ -45281,9 +45396,9 @@ 1 arg: return the indicated VM parameter; 2 args: set the VM indicated parameter. VM parameters are numbered as follows: - 1 end of old-space (0-based, read-only) - 2 end of young-space (read-only) - 3 end of memory (read-only) + 1 end/size of old-space (0-based, read-only) + 2 end/size of young/new-space (read-only) + 3 end/size of heap (read-only) 4 nil (was allocationCount (read-only)) 5 nil (was allocations between GCs (read-write) 6 survivor count tenuring threshold (read-write) @@ -45378,6 +45493,7 @@ sqInt valuePointer22; sqInt valuePointer23; sqInt valuePointer24; + sqInt valuePointer25; sqInt valuePointer3; sqInt valuePointer4; sqInt valuePointer5; @@ -45390,25 +45506,25 @@ if (GIV(argumentCount) == 0) { result = instantiateClassindexableSize(longAt((GIV(specialObjectsOop) + BaseHeaderSize) + (ClassArray << ShiftForWord)), paramsArraySize); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer1 = (((GIV(freeStart) - (startOfMemory())) << 1) | 1); - longAtput((result + BaseHeaderSize) + (0 << ShiftForWord), valuePointer1); + valuePointer2 = (((GIV(freeStart) - (startOfMemory())) << 1) | 1); + longAtput((result + BaseHeaderSize) + (0 << ShiftForWord), valuePointer2); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer2 = positive64BitIntegerFor(GIV(youngStart) - (startOfMemory())); - longAtput((result + BaseHeaderSize) + (1 << ShiftForWord), valuePointer2); + valuePointer3 = positive64BitIntegerFor(GIV(youngStart) - (startOfMemory())); + longAtput((result + BaseHeaderSize) + (1 << ShiftForWord), valuePointer3); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer3 = positive64BitIntegerFor(GIV(endOfMemory) - (startOfMemory())); - longAtput((result + BaseHeaderSize) + (2 << ShiftForWord), valuePointer3); + valuePointer4 = positive64BitIntegerFor(GIV(endOfMemory) - (startOfMemory())); + longAtput((result + BaseHeaderSize) + (2 << ShiftForWord), valuePointer4); longAtput((result + BaseHeaderSize) + (3 << ShiftForWord), GIV(nilObj)); longAtput((result + BaseHeaderSize) + (4 << ShiftForWord), GIV(nilObj)); longAtput((result + BaseHeaderSize) + (5 << ShiftForWord), ((GIV(tenuringThreshold) << 1) | 1)); longAtput((result + BaseHeaderSize) + (6 << ShiftForWord), ((GIV(statFullGCs) << 1) | 1)); longAtput((result + BaseHeaderSize) + (7 << ShiftForWord), ((((GIV(statFullGCUsecs) + 500) / 1000) << 1) | 1)); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer4 = (((GIV(statIncrGCs)) << 1) | 1); - longAtput((result + BaseHeaderSize) + (8 << ShiftForWord), valuePointer4); + valuePointer5 = (((GIV(statIncrGCs)) << 1) | 1); + longAtput((result + BaseHeaderSize) + (8 << ShiftForWord), valuePointer5); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer5 = (((((GIV(statIncrGCUsecs)) + 500) / 1000) << 1) | 1); - longAtput((result + BaseHeaderSize) + (9 << ShiftForWord), valuePointer5); + valuePointer6 = (((((GIV(statIncrGCUsecs)) + 500) / 1000) << 1) | 1); + longAtput((result + BaseHeaderSize) + (9 << ShiftForWord), valuePointer6); longAtput((result + BaseHeaderSize) + (10 << ShiftForWord), ((GIV(statTenures) << 1) | 1)); for (i = 11; i <= 19; i += 1) { longAtput((result + BaseHeaderSize) + (i << ShiftForWord), ConstZero); @@ -45419,8 +45535,8 @@ longAtput((result + BaseHeaderSize) + (23 << ShiftForWord), ((GIV(shrinkThreshold) << 1) | 1)); longAtput((result + BaseHeaderSize) + (24 << ShiftForWord), ((GIV(growHeadroom) << 1) | 1)); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer6 = (((ioHeartbeatMilliseconds()) << 1) | 1); - longAtput((result + BaseHeaderSize) + (25 << ShiftForWord), valuePointer6); + valuePointer7 = (((ioHeartbeatMilliseconds()) << 1) | 1); + longAtput((result + BaseHeaderSize) + (25 << ShiftForWord), valuePointer7); longAtput((result + BaseHeaderSize) + (26 << ShiftForWord), ((GIV(statMarkCount) << 1) | 1)); longAtput((result + BaseHeaderSize) + (27 << ShiftForWord), ((GIV(statSweepCount) << 1) | 1)); longAtput((result + BaseHeaderSize) + (28 << ShiftForWord), ((GIV(statMkFwdCount) << 1) | 1)); @@ -45436,20 +45552,20 @@ longAtput((result + BaseHeaderSize) + (38 << ShiftForWord), ((GIV(statPendingFinalizationSignals) << 1) | 1)); longAtput((result + BaseHeaderSize) + (39 << ShiftForWord), ((BytesPerWord << 1) | 1)); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer7 = (((imageFormatVersion()) << 1) | 1); - longAtput((result + BaseHeaderSize) + (40 << ShiftForWord), valuePointer7); + valuePointer8 = (((imageFormatVersion()) << 1) | 1); + longAtput((result + BaseHeaderSize) + (40 << ShiftForWord), valuePointer8); longAtput((result + BaseHeaderSize) + (41 << ShiftForWord), ((GIV(numStackPages) << 1) | 1)); longAtput((result + BaseHeaderSize) + (42 << ShiftForWord), ((desiredNumStackPages << 1) | 1)); longAtput((result + BaseHeaderSize) + (43 << ShiftForWord), ((GIV(edenBytes) << 1) | 1)); longAtput((result + BaseHeaderSize) + (44 << ShiftForWord), ((desiredEdenBytes << 1) | 1)); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer8 = getCogCodeSize(); - longAtput((result + BaseHeaderSize) + (45 << ShiftForWord), valuePointer8); + valuePointer9 = getCogCodeSize(); + longAtput((result + BaseHeaderSize) + (45 << ShiftForWord), valuePointer9); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer9 = getDesiredCogCodeSize(); - longAtput((result + BaseHeaderSize) + (46 << ShiftForWord), valuePointer9); + valuePointer10 = getDesiredCogCodeSize(); + longAtput((result + BaseHeaderSize) + (46 << ShiftForWord), valuePointer10); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer10 = (((((((GIV(processHasThreadId) + valuePointer11 = (((((((GIV(processHasThreadId) ? 1 : 0)) + ((GIV(flagInterpretedMethods) ? 2 @@ -45458,47 +45574,47 @@ : 4))) + ((GIV(noThreadingOfGUIThread) ? 8 : 0))) << 1) | 1); - longAtput((result + BaseHeaderSize) + (47 << ShiftForWord), valuePointer10); + longAtput((result + BaseHeaderSize) + (47 << ShiftForWord), valuePointer11); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer11 = (((ioGetMaxExtSemTableSize()) << 1) | 1); - longAtput((result + BaseHeaderSize) + (48 << ShiftForWord), valuePointer11); + valuePointer12 = (((ioGetMaxExtSemTableSize()) << 1) | 1); + longAtput((result + BaseHeaderSize) + (48 << ShiftForWord), valuePointer12); for (i = 49; i <= 54; i += 1) { longAtput((result + BaseHeaderSize) + (i << ShiftForWord), GIV(nilObj)); } /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer12 = positive64BitIntegerFor(GIV(statProcessSwitch)); - longAtput((result + BaseHeaderSize) + (55 << ShiftForWord), valuePointer12); + valuePointer13 = positive64BitIntegerFor(GIV(statProcessSwitch)); + longAtput((result + BaseHeaderSize) + (55 << ShiftForWord), valuePointer13); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer13 = positive64BitIntegerFor(GIV(statIOProcessEvents)); - longAtput((result + BaseHeaderSize) + (56 << ShiftForWord), valuePointer13); + valuePointer14 = positive64BitIntegerFor(GIV(statIOProcessEvents)); + longAtput((result + BaseHeaderSize) + (56 << ShiftForWord), valuePointer14); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer14 = positive64BitIntegerFor(GIV(statForceInterruptCheck)); - longAtput((result + BaseHeaderSize) + (57 << ShiftForWord), valuePointer14); + valuePointer15 = positive64BitIntegerFor(GIV(statForceInterruptCheck)); + longAtput((result + BaseHeaderSize) + (57 << ShiftForWord), valuePointer15); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer15 = positive64BitIntegerFor(GIV(statCheckForEvents)); - longAtput((result + BaseHeaderSize) + (58 << ShiftForWord), valuePointer15); + valuePointer16 = positive64BitIntegerFor(GIV(statCheckForEvents)); + longAtput((result + BaseHeaderSize) + (58 << ShiftForWord), valuePointer16); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer16 = positive64BitIntegerFor(GIV(statStackOverflow)); - longAtput((result + BaseHeaderSize) + (59 << ShiftForWord), valuePointer16); + valuePointer17 = positive64BitIntegerFor(GIV(statStackOverflow)); + longAtput((result + BaseHeaderSize) + (59 << ShiftForWord), valuePointer17); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer17 = positive64BitIntegerFor(GIV(statStackPageDivorce)); - longAtput((result + BaseHeaderSize) + (60 << ShiftForWord), valuePointer17); + valuePointer18 = positive64BitIntegerFor(GIV(statStackPageDivorce)); + longAtput((result + BaseHeaderSize) + (60 << ShiftForWord), valuePointer18); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer18 = getCodeCompactionCount(); - longAtput((result + BaseHeaderSize) + (61 << ShiftForWord), valuePointer18); + valuePointer19 = getCodeCompactionCount(); + longAtput((result + BaseHeaderSize) + (61 << ShiftForWord), valuePointer19); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer19 = getCodeCompactionMSecs(); - longAtput((result + BaseHeaderSize) + (0x3E << ShiftForWord), valuePointer19); + valuePointer20 = getCodeCompactionMSecs(); + longAtput((result + BaseHeaderSize) + (0x3E << ShiftForWord), valuePointer20); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer20 = (((numMethodsOfType(CMMethod)) << 1) | 1); - longAtput((result + BaseHeaderSize) + (0x3F << ShiftForWord), valuePointer20); + valuePointer21 = (((numMethodsOfType(CMMethod)) << 1) | 1); + longAtput((result + BaseHeaderSize) + (0x3F << ShiftForWord), valuePointer21); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer21 = GIV(trueObj); - longAtput((result + BaseHeaderSize) + (64 << ShiftForWord), valuePointer21); + valuePointer22 = GIV(trueObj); + longAtput((result + BaseHeaderSize) + (64 << ShiftForWord), valuePointer22); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer22 = (((stackPageByteSize()) << 1) | 1); - longAtput((result + BaseHeaderSize) + (65 << ShiftForWord), valuePointer22); + valuePointer23 = (((stackPageByteSize()) << 1) | 1); + longAtput((result + BaseHeaderSize) + (65 << ShiftForWord), valuePointer23); for (i = 66; i <= 68; i += 1) { /* reserved for more Cog-related info */ @@ -45506,11 +45622,11 @@ longAtput((result + BaseHeaderSize) + (i << ShiftForWord), GIV(nilObj)); } /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer23 = (((VM_PROXY_MAJOR) << 1) | 1); - longAtput((result + BaseHeaderSize) + (69 << ShiftForWord), valuePointer23); + valuePointer24 = (((VM_PROXY_MAJOR) << 1) | 1); + longAtput((result + BaseHeaderSize) + (69 << ShiftForWord), valuePointer24); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer24 = (((VM_PROXY_MINOR) << 1) | 1); - longAtput((result + BaseHeaderSize) + (70 << ShiftForWord), valuePointer24); + valuePointer25 = (((VM_PROXY_MINOR) << 1) | 1); + longAtput((result + BaseHeaderSize) + (70 << ShiftForWord), valuePointer25); assert(paramsArraySize == 71); /* begin pop:thenPush: */ longAtput((sp = GIV(stackPointer) + ((1 - 1) * BytesPerWord)), result); @@ -45673,6 +45789,12 @@ if (arg == 49) { result = (((ioGetMaxExtSemTableSize()) << 1) | 1); } + if ((arg == 54) + && (0)) { + result = (((((((usqInt) GIV(freeStart))) < (((usqInt) GIV(reserveStart))) + ? (((usqInt) GIV(reserveStart))) - (((usqInt) GIV(freeStart))) + : 0)) << 1) | 1); + } if ((arg == 55) && (0)) { result = floatObjectOf(getHeapGrowthToSizeGCRatio()); @@ -49886,6 +50008,10 @@ /* begin initializeInterpreter: */ interpreterProxy = sqGetInterpreterProxy(); dummyReferToProxy(); + + /* must preceed initializeObjectMemory: */ + + checkAllocFiller = 0; initializeObjectMemory(bytesToShift); /* begin checkAssumedCompactClasses */ /* begin checkCompactIndex:isClass:named: */ @@ -50024,7 +50150,6 @@ GIV(jmpDepth) = 0; GIV(longRunningPrimitiveStartUsecs) = (GIV(longRunningPrimitiveStopUsecs) = 0); GIV(maxExtSemTabSizeSet) = 0; - checkAllocFiller = 0; GIV(statForceInterruptCheck) = 0; GIV(statStackOverflow) = 0; GIV(statCheckForEvents) = 0; @@ -50749,7 +50874,7 @@ given object or free chunk in memory. Return freeStart when enumeration is complete. This is for assertion checking only. */ -static usqInt +static sqInt safeObjectAfter(sqInt oop) { DECL_MAYBE_SQ_GLOBAL_STRUCT sqInt header; Modified: branches/Cog/nscogsrc/vm/cointerp.h =================================================================== --- branches/Cog/nscogsrc/vm/cointerp.h 2014-06-23 23:03:59 UTC (rev 3013) +++ branches/Cog/nscogsrc/vm/cointerp.h 2014-06-24 02:18:33 UTC (rev 3014) @@ -1,5 +1,5 @@ /* Automatically generated by - CCodeGeneratorGlobalStructure VMMaker.oscog-eem.775 uuid: dd27f525-f775-49fc-8bf0-2463d78bfb97 + CCodeGeneratorGlobalStructure VMMaker.oscog-eem.779 uuid: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 */ @@ -139,6 +139,7 @@ sqInt lengthOf(sqInt oop); sqInt literalCountOfHeader(sqInt headerPointer); sqInt literalofMethod(sqInt offset, sqInt methodPointer); +void longPrintInstancesOf(sqInt aClassOop); void longPrintOop(sqInt oop); void longPrintReferencesTo(sqInt anOop); sqInt longStoreBytecodeForHeader(sqInt methodHeader); Modified: branches/Cog/nscogsrc/vm/gcc3x-cointerp.c =================================================================== --- branches/Cog/nscogsrc/vm/gcc3x-cointerp.c 2014-06-23 23:03:59 UTC (rev 3013) +++ branches/Cog/nscogsrc/vm/gcc3x-cointerp.c 2014-06-24 02:18:33 UTC (rev 3014) @@ -2,11 +2,11 @@ /* Automatically generated by - CCodeGeneratorGlobalStructure VMMaker.oscog-eem.775 uuid: dd27f525-f775-49fc-8bf0-2463d78bfb97 + CCodeGeneratorGlobalStructure VMMaker.oscog-eem.779 uuid: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 from - CoInterpreter VMMaker.oscog-eem.775 uuid: dd27f525-f775-49fc-8bf0-2463d78bfb97 + CoInterpreter VMMaker.oscog-eem.779 uuid: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 */ -static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.775 uuid: dd27f525-f775-49fc-8bf0-2463d78bfb97 " __DATE__ ; +static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.779 uuid: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 " __DATE__ ; char *__interpBuildInfo = __buildInfo; @@ -740,6 +740,7 @@ sqInt loadBitBltFrom(sqInt bb); static sqInt loadImageSegmentFromoutPointers(sqInt segmentWordArray, sqInt outPointerArray) NoDbgRegParms; void loadInitialContext(void); +void longPrintInstancesOf(sqInt aClassOop); void longPrintOop(sqInt oop); void longPrintReferencesTo(sqInt anOop); sqInt longStoreBytecodeForHeader(sqInt methodHeader); @@ -1175,7 +1176,7 @@ static void rewriteMethodCacheEntryForExternalPrimitiveToFunction(void (*localPrimAddress)(void)) NoDbgRegParms; static sqInt roomToPushNArgs(sqInt n) NoDbgRegParms; static void runLeakCheckerForFullGC(sqInt fullGCFlag) NoDbgRegParms; -static usqInt safeObjectAfter(sqInt oop) NoDbgRegParms; +static sqInt safeObjectAfter(sqInt oop) NoDbgRegParms; static sqInt safePrintStringOf(sqInt oop) NoDbgRegParms; usqInt scavengeThresholdAddress(void); EXPORT(sqInt) sendInvokeCallbackContext(VMCallbackContext *vmCallbackContext); @@ -2064,7 +2065,7 @@ /* 574 */ (void (*)(void))0, /* 575 */ (void (*)(void))0, 0 }; -const char *interpreterVersion = "Newspeak Virtual Machine CoInterpreter_VMMaker.oscog-eem.775"; +const char *interpreterVersion = "Newspeak Virtual Machine CoInterpreter_VMMaker.oscog-eem.779"; sqInt minBackwardJumpCountForCompile = MinBackwardJumpCountForCompile /* 10 */; volatile int sendTrace; @@ -23989,15 +23990,17 @@ sqInt header1; sqInt header2; sqInt header3; + sqInt header4; usqInt lastWord; sqInt newFreeChunk; sqInt newOop; - usqInt next; + sqInt next; sqInt oop; sqInt realHeader; sqInt sz; sqInt sz1; sqInt sz2; + sqInt sz3; sqInt target; usqInt w; @@ -24008,7 +24011,21 @@ /* begin objectAfterWhileForwarding: */ header2 = longAt(oop); if ((header2 & MarkBit) == 0) { - next = ((sqInt) (objectAfter(oop))); + /* begin objectAfter: */ + if (!(asserta(oopisLessThan(oop, GIV(freeStart))))) { + error("no objects after the end of memory"); + } + if (((longAt(oop)) & TypeMask) == HeaderTypeFree) { + sz2 = (longAt(oop)) & AllButTypeMask; + } + else { + /* begin sizeBitsOf: */ + header3 = longAt(oop); + sz2 = ((header3 & TypeMask) == HeaderTypeSizeAndClass + ? (longAt(oop - (BytesPerWord * 2))) & LongSizeMask + : header3 & SizeMask); + } + next = (oop + sz2) + (headerTypeBytes[(longAt(oop + sz2)) & TypeMask]); goto l1; } fwdBlock1 = (header2 & AllButMarkBitAndTypeMask) << 1; @@ -24023,7 +24040,7 @@ else { sz1 = realHeader & SizeMask; } - next = ((sqInt) ((oop + sz1) + (headerTypeBytes[(longAt(oop + sz1)) & TypeMask]))); + next = (oop + sz1) + (headerTypeBytes[(longAt(oop + sz1)) & TypeMask]); l1: /* end objectAfterWhileForwarding: */; if (!(((longAt(oop)) & TypeMask) == HeaderTypeFree)) { @@ -24077,18 +24094,18 @@ } /* begin safeObjectAfter: */ if (((longAt(newFreeChunk)) & TypeMask) == HeaderTypeFree) { - sz2 = (longAt(newFreeChunk)) & AllButTypeMask; + sz3 = (longAt(newFreeChunk)) & AllButTypeMask; } else { /* begin sizeBitsOf: */ - header3 = longAt(newFreeChunk); - sz2 = ((header3 & TypeMask) == HeaderTypeSizeAndClass + header4 = longAt(newFreeChunk); + sz3 = ((header4 & TypeMask) == HeaderTypeSizeAndClass ? (longAt(newFreeChunk - (BytesPerWord * 2))) & LongSizeMask - : header3 & SizeMask); + : header4 & SizeMask); } - next = ((newFreeChunk + sz2) >= GIV(freeStart) + next = ((newFreeChunk + sz3) >= GIV(freeStart) ? GIV(freeStart) - : (newFreeChunk + sz2) + (headerTypeBytes[(longAt(newFreeChunk + sz2)) & TypeMask])); + : (newFreeChunk + sz3) + (headerTypeBytes[(longAt(newFreeChunk + sz3)) & TypeMask])); assert((next == GIV(freeStart)) || (next == (oopFromChunk(GIV(compEnd))))); if (next == GIV(freeStart)) { @@ -26254,7 +26271,105 @@ marryContextInNewStackPageAndInitializeInterpreterRegisters(activeContext); } + +/* Scan the heap printing the oops of any and all objects that are instances + of aClassOop + */ + void +longPrintInstancesOf(sqInt aClassOop) +{ DECL_MAYBE_SQ_GLOBAL_STRUCT + sqInt ccIndex; + sqInt chunk; + sqInt header; + sqInt header1; + sqInt header2; + sqInt obj; + sqInt obj1; + sqInt oop; + sqInt sz; + sqInt sz1; + sqInt sz2; + + /* begin firstAccessibleObject */ + /* begin oopFromChunk: */ + chunk = startOfMemory(); + obj1 = chunk + (headerTypeBytes[(longAt(chunk)) & TypeMask]); + while ((((usqInt) obj1)) < (((usqInt) GIV(freeStart)))) { + if (!(((longAt(obj1)) & TypeMask) == HeaderTypeFree)) { + oop = obj1; + goto l2; + } + /* begin objectAfter: */ + if (!(asserta(oopisLessThan(obj1, GIV(freeStart))))) { + error("no objects after the end of memory"); + } + if (((longAt(obj1)) & TypeMask) == HeaderTypeFree) { + sz = (longAt(obj1)) & AllButTypeMask; + } + else { + /* begin sizeBitsOf: */ + header = longAt(obj1); + sz = ((header & TypeMask) == HeaderTypeSizeAndClass + ? (longAt(obj1 - (BytesPerWord * 2))) & LongSizeMask + : header & SizeMask); + } + obj1 = (obj1 + sz) + (headerTypeBytes[(longAt(obj1 + sz)) & TypeMask]); + } + error("heap is empty"); + oop = null; +l2: /* end firstAccessibleObject */; + while (!(oop == null)) { + if (((((ccIndex = (((usqInt) (longAt(oop))) >> 12) & 0x1F)) == 0 + ? (longAt(oop - BaseHeaderSize)) & AllButTypeMask + : longAt(((longAt((GIV(specialObjectsOop) + BaseHeaderSize) + (CompactClasses << ShiftForWord))) + BaseHeaderSize) + ((ccIndex - 1) << ShiftForWord)))) == aClassOop) { + longPrintOop(oop); + /* begin cr */ + printf("\n"); + } + /* begin accessibleObjectAfter: */ + /* begin objectAfter: */ + if (!(asserta(oopisLessThan(oop, GIV(freeStart))))) { + error("no objects after the end of memory"); + } + if (((longAt(oop)) & TypeMask) == HeaderTypeFree) { + sz2 = (longAt(oop)) & AllButTypeMask; + } + else { + /* begin sizeBitsOf: */ + header2 = longAt(oop); + sz2 = ((header2 & TypeMask) == HeaderTypeSizeAndClass + ? (longAt(oop - (BytesPerWord * 2))) & LongSizeMask + : header2 & SizeMask); + } + obj = (oop + sz2) + (headerTypeBytes[(longAt(oop + sz2)) & TypeMask]); + while ((((usqInt) obj)) < (((usqInt) GIV(freeStart)))) { + if (!(((longAt(obj)) & TypeMask) == HeaderTypeFree)) { + oop = obj; + goto l1; + } + /* begin objectAfter: */ + if (!(asserta(oopisLessThan(obj, GIV(freeStart))))) { + error("no objects after the end of memory"); + } + if (((longAt(obj)) & TypeMask) == HeaderTypeFree) { + sz1 = (longAt(obj)) & AllButTypeMask; + } + else { + /* begin sizeBitsOf: */ + header1 = longAt(obj); + sz1 = ((header1 & TypeMask) == HeaderTypeSizeAndClass + ? (longAt(obj - (BytesPerWord * 2))) & LongSizeMask + : header1 & SizeMask); + } + obj = (obj + sz1) + (headerTypeBytes[(longAt(obj + sz1)) & TypeMask]); + } + oop = null; + l1: /* end accessibleObjectAfter: */; + } +} + +void longPrintOop(sqInt oop) { DECL_MAYBE_SQ_GLOBAL_STRUCT sqInt byte; @@ -45290,9 +45405,9 @@ 1 arg: return the indicated VM parameter; 2 args: set the VM indicated parameter. VM parameters are numbered as follows: - 1 end of old-space (0-based, read-only) - 2 end of young-space (read-only) - 3 end of memory (read-only) + 1 end/size of old-space (0-based, read-only) + 2 end/size of young/new-space (read-only) + 3 end/size of heap (read-only) 4 nil (was allocationCount (read-only)) 5 nil (was allocations between GCs (read-write) 6 survivor count tenuring threshold (read-write) @@ -45387,6 +45502,7 @@ sqInt valuePointer22; sqInt valuePointer23; sqInt valuePointer24; + sqInt valuePointer25; sqInt valuePointer3; sqInt valuePointer4; sqInt valuePointer5; @@ -45399,25 +45515,25 @@ if (GIV(argumentCount) == 0) { result = instantiateClassindexableSize(longAt((GIV(specialObjectsOop) + BaseHeaderSize) + (ClassArray << ShiftForWord)), paramsArraySize); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer1 = (((GIV(freeStart) - (startOfMemory())) << 1) | 1); - longAtput((result + BaseHeaderSize) + (0 << ShiftForWord), valuePointer1); + valuePointer2 = (((GIV(freeStart) - (startOfMemory())) << 1) | 1); + longAtput((result + BaseHeaderSize) + (0 << ShiftForWord), valuePointer2); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer2 = positive64BitIntegerFor(GIV(youngStart) - (startOfMemory())); - longAtput((result + BaseHeaderSize) + (1 << ShiftForWord), valuePointer2); + valuePointer3 = positive64BitIntegerFor(GIV(youngStart) - (startOfMemory())); + longAtput((result + BaseHeaderSize) + (1 << ShiftForWord), valuePointer3); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer3 = positive64BitIntegerFor(GIV(endOfMemory) - (startOfMemory())); - longAtput((result + BaseHeaderSize) + (2 << ShiftForWord), valuePointer3); + valuePointer4 = positive64BitIntegerFor(GIV(endOfMemory) - (startOfMemory())); + longAtput((result + BaseHeaderSize) + (2 << ShiftForWord), valuePointer4); longAtput((result + BaseHeaderSize) + (3 << ShiftForWord), GIV(nilObj)); longAtput((result + BaseHeaderSize) + (4 << ShiftForWord), GIV(nilObj)); longAtput((result + BaseHeaderSize) + (5 << ShiftForWord), ((GIV(tenuringThreshold) << 1) | 1)); longAtput((result + BaseHeaderSize) + (6 << ShiftForWord), ((GIV(statFullGCs) << 1) | 1)); longAtput((result + BaseHeaderSize) + (7 << ShiftForWord), ((((GIV(statFullGCUsecs) + 500) / 1000) << 1) | 1)); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer4 = (((GIV(statIncrGCs)) << 1) | 1); - longAtput((result + BaseHeaderSize) + (8 << ShiftForWord), valuePointer4); + valuePointer5 = (((GIV(statIncrGCs)) << 1) | 1); + longAtput((result + BaseHeaderSize) + (8 << ShiftForWord), valuePointer5); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer5 = (((((GIV(statIncrGCUsecs)) + 500) / 1000) << 1) | 1); - longAtput((result + BaseHeaderSize) + (9 << ShiftForWord), valuePointer5); + valuePointer6 = (((((GIV(statIncrGCUsecs)) + 500) / 1000) << 1) | 1); + longAtput((result + BaseHeaderSize) + (9 << ShiftForWord), valuePointer6); longAtput((result + BaseHeaderSize) + (10 << ShiftForWord), ((GIV(statTenures) << 1) | 1)); for (i = 11; i <= 19; i += 1) { longAtput((result + BaseHeaderSize) + (i << ShiftForWord), ConstZero); @@ -45428,8 +45544,8 @@ longAtput((result + BaseHeaderSize) + (23 << ShiftForWord), ((GIV(shrinkThreshold) << 1) | 1)); longAtput((result + BaseHeaderSize) + (24 << ShiftForWord), ((GIV(growHeadroom) << 1) | 1)); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer6 = (((ioHeartbeatMilliseconds()) << 1) | 1); - longAtput((result + BaseHeaderSize) + (25 << ShiftForWord), valuePointer6); + valuePointer7 = (((ioHeartbeatMilliseconds()) << 1) | 1); + longAtput((result + BaseHeaderSize) + (25 << ShiftForWord), valuePointer7); longAtput((result + BaseHeaderSize) + (26 << ShiftForWord), ((GIV(statMarkCount) << 1) | 1)); longAtput((result + BaseHeaderSize) + (27 << ShiftForWord), ((GIV(statSweepCount) << 1) | 1)); longAtput((result + BaseHeaderSize) + (28 << ShiftForWord), ((GIV(statMkFwdCount) << 1) | 1)); @@ -45445,20 +45561,20 @@ longAtput((result + BaseHeaderSize) + (38 << ShiftForWord), ((GIV(statPendingFinalizationSignals) << 1) | 1)); longAtput((result + BaseHeaderSize) + (39 << ShiftForWord), ((BytesPerWord << 1) | 1)); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer7 = (((imageFormatVersion()) << 1) | 1); - longAtput((result + BaseHeaderSize) + (40 << ShiftForWord), valuePointer7); + valuePointer8 = (((imageFormatVersion()) << 1) | 1); + longAtput((result + BaseHeaderSize) + (40 << ShiftForWord), valuePointer8); longAtput((result + BaseHeaderSize) + (41 << ShiftForWord), ((GIV(numStackPages) << 1) | 1)); longAtput((result + BaseHeaderSize) + (42 << ShiftForWord), ((desiredNumStackPages << 1) | 1)); longAtput((result + BaseHeaderSize) + (43 << ShiftForWord), ((GIV(edenBytes) << 1) | 1)); longAtput((result + BaseHeaderSize) + (44 << ShiftForWord), ((desiredEdenBytes << 1) | 1)); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer8 = getCogCodeSize(); - longAtput((result + BaseHeaderSize) + (45 << ShiftForWord), valuePointer8); + valuePointer9 = getCogCodeSize(); + longAtput((result + BaseHeaderSize) + (45 << ShiftForWord), valuePointer9); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer9 = getDesiredCogCodeSize(); - longAtput((result + BaseHeaderSize) + (46 << ShiftForWord), valuePointer9); + valuePointer10 = getDesiredCogCodeSize(); + longAtput((result + BaseHeaderSize) + (46 << ShiftForWord), valuePointer10); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer10 = (((((((GIV(processHasThreadId) + valuePointer11 = (((((((GIV(processHasThreadId) ? 1 : 0)) + ((GIV(flagInterpretedMethods) ? 2 @@ -45467,47 +45583,47 @@ : 4))) + ((GIV(noThreadingOfGUIThread) ? 8 : 0))) << 1) | 1); - longAtput((result + BaseHeaderSize) + (47 << ShiftForWord), valuePointer10); + longAtput((result + BaseHeaderSize) + (47 << ShiftForWord), valuePointer11); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer11 = (((ioGetMaxExtSemTableSize()) << 1) | 1); - longAtput((result + BaseHeaderSize) + (48 << ShiftForWord), valuePointer11); + valuePointer12 = (((ioGetMaxExtSemTableSize()) << 1) | 1); + longAtput((result + BaseHeaderSize) + (48 << ShiftForWord), valuePointer12); for (i = 49; i <= 54; i += 1) { longAtput((result + BaseHeaderSize) + (i << ShiftForWord), GIV(nilObj)); } /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer12 = positive64BitIntegerFor(GIV(statProcessSwitch)); - longAtput((result + BaseHeaderSize) + (55 << ShiftForWord), valuePointer12); + valuePointer13 = positive64BitIntegerFor(GIV(statProcessSwitch)); + longAtput((result + BaseHeaderSize) + (55 << ShiftForWord), valuePointer13); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer13 = positive64BitIntegerFor(GIV(statIOProcessEvents)); - longAtput((result + BaseHeaderSize) + (56 << ShiftForWord), valuePointer13); + valuePointer14 = positive64BitIntegerFor(GIV(statIOProcessEvents)); + longAtput((result + BaseHeaderSize) + (56 << ShiftForWord), valuePointer14); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer14 = positive64BitIntegerFor(GIV(statForceInterruptCheck)); - longAtput((result + BaseHeaderSize) + (57 << ShiftForWord), valuePointer14); + valuePointer15 = positive64BitIntegerFor(GIV(statForceInterruptCheck)); + longAtput((result + BaseHeaderSize) + (57 << ShiftForWord), valuePointer15); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer15 = positive64BitIntegerFor(GIV(statCheckForEvents)); - longAtput((result + BaseHeaderSize) + (58 << ShiftForWord), valuePointer15); + valuePointer16 = positive64BitIntegerFor(GIV(statCheckForEvents)); + longAtput((result + BaseHeaderSize) + (58 << ShiftForWord), valuePointer16); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer16 = positive64BitIntegerFor(GIV(statStackOverflow)); - longAtput((result + BaseHeaderSize) + (59 << ShiftForWord), valuePointer16); + valuePointer17 = positive64BitIntegerFor(GIV(statStackOverflow)); + longAtput((result + BaseHeaderSize) + (59 << ShiftForWord), valuePointer17); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer17 = positive64BitIntegerFor(GIV(statStackPageDivorce)); - longAtput((result + BaseHeaderSize) + (60 << ShiftForWord), valuePointer17); + valuePointer18 = positive64BitIntegerFor(GIV(statStackPageDivorce)); + longAtput((result + BaseHeaderSize) + (60 << ShiftForWord), valuePointer18); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer18 = getCodeCompactionCount(); - longAtput((result + BaseHeaderSize) + (61 << ShiftForWord), valuePointer18); + valuePointer19 = getCodeCompactionCount(); + longAtput((result + BaseHeaderSize) + (61 << ShiftForWord), valuePointer19); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer19 = getCodeCompactionMSecs(); - longAtput((result + BaseHeaderSize) + (0x3E << ShiftForWord), valuePointer19); + valuePointer20 = getCodeCompactionMSecs(); + longAtput((result + BaseHeaderSize) + (0x3E << ShiftForWord), valuePointer20); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer20 = (((numMethodsOfType(CMMethod)) << 1) | 1); - longAtput((result + BaseHeaderSize) + (0x3F << ShiftForWord), valuePointer20); + valuePointer21 = (((numMethodsOfType(CMMethod)) << 1) | 1); + longAtput((result + BaseHeaderSize) + (0x3F << ShiftForWord), valuePointer21); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer21 = GIV(trueObj); - longAtput((result + BaseHeaderSize) + (64 << ShiftForWord), valuePointer21); + valuePointer22 = GIV(trueObj); + longAtput((result + BaseHeaderSize) + (64 << ShiftForWord), valuePointer22); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer22 = (((stackPageByteSize()) << 1) | 1); - longAtput((result + BaseHeaderSize) + (65 << ShiftForWord), valuePointer22); + valuePointer23 = (((stackPageByteSize()) << 1) | 1); + longAtput((result + BaseHeaderSize) + (65 << ShiftForWord), valuePointer23); for (i = 66; i <= 68; i += 1) { /* reserved for more Cog-related info */ @@ -45515,11 +45631,11 @@ longAtput((result + BaseHeaderSize) + (i << ShiftForWord), GIV(nilObj)); } /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer23 = (((VM_PROXY_MAJOR) << 1) | 1); - longAtput((result + BaseHeaderSize) + (69 << ShiftForWord), valuePointer23); + valuePointer24 = (((VM_PROXY_MAJOR) << 1) | 1); + longAtput((result + BaseHeaderSize) + (69 << ShiftForWord), valuePointer24); /* begin storePointerUnchecked:ofObject:withValue: */ - valuePointer24 = (((VM_PROXY_MINOR) << 1) | 1); - longAtput((result + BaseHeaderSize) + (70 << ShiftForWord), valuePointer24); + valuePointer25 = (((VM_PROXY_MINOR) << 1) | 1); + longAtput((result + BaseHeaderSize) + (70 << ShiftForWord), valuePointer25); assert(paramsArraySize == 71); /* begin pop:thenPush: */ longAtput((sp = GIV(stackPointer) + ((1 - 1) * BytesPerWord)), result); @@ -45682,6 +45798,12 @@ if (arg == 49) { result = (((ioGetMaxExtSemTableSize()) << 1) | 1); } + if ((arg == 54) + && (0)) { + result = (((((((usqInt) GIV(freeStart))) < (((usqInt) GIV(reserveStart))) + ? (((usqInt) GIV(reserveStart))) - (((usqInt) GIV(freeStart))) + : 0)) << 1) | 1); + } if ((arg == 55) && (0)) { result = floatObjectOf(getHeapGrowthToSizeGCRatio()); @@ -49895,6 +50017,10 @@ /* begin initializeInterpreter: */ interpreterProxy = sqGetInterpreterProxy(); dummyReferToProxy(); + + /* must preceed initializeObjectMemory: */ + + checkAllocFiller = 0; initializeObjectMemory(bytesToShift); /* begin checkAssumedCompactClasses */ /* begin checkCompactIndex:isClass:named: */ @@ -50033,7 +50159,6 @@ GIV(jmpDepth) = 0; GIV(longRunningPrimitiveStartUsecs) = (GIV(longRunningPrimitiveStopUsecs) = 0); GIV(maxExtSemTabSizeSet) = 0; - checkAllocFiller = 0; GIV(statForceInterruptCheck) = 0; GIV(statStackOverflow) = 0; GIV(statCheckForEvents) = 0; @@ -50758,7 +50883,7 @@ given object or free chunk in memory. Return freeStart when enumeration is complete. This is for assertion checking only. */ -static usqInt +static sqInt safeObjectAfter(sqInt oop) { DECL_MAYBE_SQ_GLOBAL_STRUCT sqInt header; Modified: branches/Cog/nscogsrc/vm/interp.h =================================================================== --- branches/Cog/nscogsrc/vm/interp.h 2014-06-23 23:03:59 UTC (rev 3013) +++ branches/Cog/nscogsrc/vm/interp.h 2014-06-24 02:18:33 UTC (rev 3014) @@ -1,5 +1,5 @@ /* Automatically generated by - CCodeGeneratorGlobalStructure VMMaker.oscog-eem.775 uuid: dd27f525-f775-49fc-8bf0-2463d78bfb97 + CCodeGeneratorGlobalStructure VMMaker.oscog-eem.779 uuid: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 */ #define VM_PROXY_MAJOR 1 Modified: branches/Cog/nscogsrc/vm/vmCallback.h =================================================================== --- branches/Cog/nscogsrc/vm/vmCallback.h 2014-06-23 23:03:59 UTC (rev 3013) +++ branches/Cog/nscogsrc/vm/vmCallback.h 2014-06-24 02:18:33 UTC (rev 3014) @@ -1,5 +1,5 @@ /* Automatically generated by - CCodeGeneratorGlobalStructure VMMaker.oscog-eem.775 uuid: dd27f525-f775-49fc-8bf0-2463d78bfb97 + CCodeGeneratorGlobalStructure VMMaker.oscog-eem.779 uuid: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 */ #define VM_CALLBACK_INC 1 Modified: branches/Cog/nsspursrc/vm/cointerp.c =================================================================== --- branches/Cog/nsspursrc/vm/cointerp.c 2014-06-23 23:03:59 UTC (rev 3013) +++ branches/Cog/nsspursrc/vm/cointerp.c 2014-06-24 02:18:33 UTC (rev 3014) @@ -1,9 +1,9 @@ /* Automatically generated by - CCodeGeneratorGlobalStructure VMMaker.oscog-eem.776 uuid: baaa78fd-2c0b-4cde-a247-4c45097f296e + CCodeGeneratorGlobalStructure VMMaker.oscog-eem.779 uuid: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 from - CoInterpreter VMMaker.oscog-eem.776 uuid: baaa78fd-2c0b-4cde-a247-4c45097f296e + CoInterpreter VMMaker.oscog-eem.779 uuid: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 */ -static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.776 uuid: baaa78fd-2c0b-4cde-a247-4c45097f296e " __DATE__ ; +static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.779 uuid: 5ba1d239-a296-47c9-83ad-6d0e0bcabcb4 " __DATE__ ; char *__interpBuildInfo = __buildInfo; @@ -847,6 +847,8 @@ sqInt literalofMethod(sqInt offset, sqInt methodPointer); sqInt loadBitBltFrom(sqInt bb); void loadInitialContext(void); +void longPrintInstancesOf(sqInt aClassOop); +void longPrintInstancesWithClassIndex(sqInt classIndex); void longPrintOop(sqInt oop); void longPrintReferencesTo(sqInt anOop); sqInt longStoreBytecodeForHeader(sqInt methodHeader); @@ -913,6 +915,7 @@ static char * nameOfClass(sqInt classOop) NoDbgRegParms; usqInt newMethodAddress(void); static sqInt newObjectHash(void); +static usqInt newSpaceCapacity(void); static sqInt newSpaceIsEmpty(void); static StackPage * newStackPage(void); sqInt nextInSortedFreeListLinkgiven(sqInt freeChunk, sqInt prevFree); @@ -1355,6 +1358,7 @@ sqInt shouldRemapObj(sqInt objOop); sqInt shouldRemapOop(sqInt oop); sqInt showDisplayBitsLeftTopRightBottom(sqInt aForm, sqInt l, sqInt t, sqInt r, sqInt b); +static void shrinkObjectMemory(usqInt delta) NoDbgRegParms; static sqInt signalExternalSemaphores(void); sqInt signalNoResume(sqInt aSemaphore); sqInt signed32BitIntegerFor(sqInt integerValue); @@ -1421,7 +1425,7 @@ void tenuringIncrementalGC(void); static sqInt topOfObjStack(sqInt objStack) NoDbgRegParms; sqInt topRemappableOop(void); -static sqInt totalBytesInSegments(void); +static usqInt totalBytesInSegments(void); static sqInt totalFreeListBytes(void); static void transferTofrom(sqInt newProc, sqInt sourceCode) NoDbgRegParms; sqInt trueObject(void); @@ -1480,7 +1484,7 @@ _iss sqInt remapBufferCount; _iss sqInt falseObj; _iss sqInt needGCFlag; -_iss sqInt totalFreeOldSpace; +_iss usqInt totalFreeOldSpace; _iss sqInt bytesPerPage; _iss sqInt numSegments; _iss sqInt traceLogIndex; @@ -1494,8 +1498,8 @@ _iss usqInt firstFreeChunk; _iss unsigned char primTraceLogIndex; _iss StackPage * mostRecentlyUsedPage; +_iss sqInt numStackPages; _iss SpurNewSpaceSpace pastSpace; -_iss sqInt numStackPages; _iss usqInt newSpaceStart; _iss usqInt oldSpaceStart; _iss sqInt classTableFirstPage; @@ -1511,9 +1515,9 @@ _iss sqInt longRunningPrimitiveCheckSemaphore; _iss sqInt tempOop; _iss char * objStackInvalidBecause; -_iss SpurNewSpaceSpace eden; _iss usqInt lastFreeChunk; _iss sqInt profileSemaphore; +_iss SpurNewSpaceSpace eden; @@ Diff output truncated at 50000 characters. @@

1 0

Simple makefile for 32/64 bit interpreter VMs (was: VM Maker: VMMaker-dtl.347.mcz)
by David T. Lewis 24 Jun '14

24 Jun '14

On Mon, Jun 23, 2014 at 10:56:08PM +0000, commits(a)source.squeak.org wrote: > > David T. Lewis uploaded a new version of VMMaker to project VM Maker: > http://source.squeak.org/VMMaker/VMMaker-dtl.347.mcz > > ==================== Summary ==================== > > Name: VMMaker-dtl.347 > Author: dtl > Time: 23 June 2014, 6:55:41.171 pm > UUID: 0e985655-74a3-4561-8daf-4a4740c19a3b > Ancestors: VMMaker-dtl.346 > > Ensure that initializeSmallIntegers is called before generating the interpreter file because pool constants may have been changed when running simulation (symptom: a 64 bit image crashes because ConstMinusOne has been rendered as unsigned 32 bit, when it should be twos complement -1). > > Remove KedamaPlugin from defaultUnixSpec because it duplicates the more up to date KedamaPlugin2. > This update fixes a couple of glitches that I had overlooked in the generated sources. The platforms and src trees should now work nicely together, at least on a unix (linux) system. So, for example, if you have a Linux system with Subversion, CMake, and the the usual development tools installed, you can check out the platforms and src trees: $ svn co http://squeakvm.org/svn/squeak/trunk/platforms $ svn co http://squeakvm.org/svn/squeak/trunk/src Then make a ./build directory next to your freshly downloaded ./platforms and ./src directories, and use the attached Makefile to build your VMs. $ cd build $ make $ sudo make install The resulting /usr/local/bin/squeak will run any normal Squeak or Etoys image, as well as a 64 bit image such as the one at http://build.squeak.org/job/Squeak%2064-bit%20image/. Dave

1 0

[commit][3013] Check in KedamaPlugin2 (from http://www.squeaksource.com/ KedamaPlugins).
by commits＠squeakvm.org 24 Jun '14

24 Jun '14

Revision: 3013 Author: lewis Date: 2014-06-23 16:03:59 -0700 (Mon, 23 Jun 2014) Log Message: ----------- Check in KedamaPlugin2 (from http://www.squeaksource.com/KedamaPlugins). Change plugins.ext to include KedamaPlugin2 only (remove KedamaPlugin). Modified Paths: -------------- trunk/src/plugins.ext Added Paths: ----------- trunk/src/plugins/KedamaPlugin2/ trunk/src/plugins/KedamaPlugin2/KedamaPlugin2.c Added: trunk/src/plugins/KedamaPlugin2/KedamaPlugin2.c =================================================================== --- trunk/src/plugins/KedamaPlugin2/KedamaPlugin2.c (rev 0) +++ trunk/src/plugins/KedamaPlugin2/KedamaPlugin2.c 2014-06-23 23:03:59 UTC (rev 3013) @@ -0,0 +1,4563 @@ +/* Smalltalk from Squeak4.5 with VMMaker 4.13.5 translated as C source on 23 June 2014 6:57:27 pm */ +/* Automatically generated by + VMPluginCodeGenerator VMMaker-dtl.347 uuid: 0e985655-74a3-4561-8daf-4a4740c19a3b + from + KedamaPlugin2 Kedama-Plugins-yo.1 uuid: 3fc7d691-0149-ba4d-a339-5d27cd44a2f8 + */ +static char __buildInfo[] = "KedamaPlugin2 Kedama-Plugins-yo.1 uuid: 3fc7d691-0149-ba4d-a339-5d27cd44a2f8 " __DATE__ ; + + + + +#include <math.h> +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#include <time.h> + +/* Default EXPORT macro that does nothing (see comment in sq.h): */ +#define EXPORT(returnType) returnType + +/* Do not include the entire sq.h file but just those parts needed. */ +/* The virtual machine proxy definition */ +#include "sqVirtualMachine.h" +/* Configuration options */ +#include "sqConfig.h" +/* Platform specific definitions */ +#include "sqPlatformSpecific.h" + +#define true 1 +#define false 0 +#define null 0 /* using 'null' because nil is predefined in Think C */ +#ifdef SQUEAK_BUILTIN_PLUGIN +#undef EXPORT +// was #undef EXPORT(returnType) but screws NorCroft cc +#define EXPORT(returnType) static returnType +#endif + +#include "sqMemoryAccess.h" + + +/*** Constants ***/ + +/*** Function Prototypes ***/ +static double degreesFromXy(double x, double y); +static double degreesToRadians(double degrees); +#pragma export on +EXPORT(sqInt) drawTurtlesInArray(void); +EXPORT(sqInt) getHeadingArrayInto(void); +EXPORT(const char*) getModuleName(void); +EXPORT(sqInt) getScalarHeading(void); +#pragma export off +static sqInt halt(void); +#pragma export on +EXPORT(sqInt) initialiseModule(void); +#pragma export off +static sqInt kedamaRandom2(sqInt range); +#pragma export on +EXPORT(sqInt) kedamaSetRandomSeed(void); +EXPORT(sqInt) makeMask(void); +EXPORT(sqInt) makeMaskLog(void); +EXPORT(sqInt) makeTurtlesMap(void); +EXPORT(sqInt) primPixelAtXY(void); +EXPORT(sqInt) primPixelAtXYPut(void); +EXPORT(sqInt) primPixelsAtXY(void); +EXPORT(sqInt) primScalarForward(void); +EXPORT(sqInt) primSetPixelsAtXY(void); +EXPORT(sqInt) primTurtlesForward(void); +EXPORT(sqInt) primUpHill(void); +EXPORT(sqInt) primitiveAddArrays(void); +EXPORT(sqInt) primitiveAddScalar(void); +EXPORT(sqInt) primitiveAndByteArray(void); +EXPORT(sqInt) primitiveDivArrays(void); +EXPORT(sqInt) primitiveDivScalar(void); +EXPORT(sqInt) primitiveEQArrays(void); +EXPORT(sqInt) primitiveEQScalar(void); +EXPORT(sqInt) primitiveGEArrays(void); +EXPORT(sqInt) primitiveGEScalar(void); +EXPORT(sqInt) primitiveGTArrays(void); +EXPORT(sqInt) primitiveGTScalar(void); +EXPORT(sqInt) primitiveLEArrays(void); +EXPORT(sqInt) primitiveLEScalar(void); +EXPORT(sqInt) primitiveLTArrays(void); +EXPORT(sqInt) primitiveLTScalar(void); +EXPORT(sqInt) primitiveMulArrays(void); +EXPORT(sqInt) primitiveMulScalar(void); +EXPORT(sqInt) primitiveNEArrays(void); +EXPORT(sqInt) primitiveNEScalar(void); +EXPORT(sqInt) primitiveNotByteArray(void); +EXPORT(sqInt) primitiveOrByteArray(void); +EXPORT(sqInt) primitivePredicateAtAllPutBoolean(void); +EXPORT(sqInt) primitivePredicateAtAllPutColor(void); +EXPORT(sqInt) primitivePredicateAtAllPutNumber(void); +EXPORT(sqInt) primitivePredicateAtAllPutObject(void); +EXPORT(sqInt) primitivePredicateReplaceBytes(void); +EXPORT(sqInt) primitivePredicateReplaceWords(void); +EXPORT(sqInt) primitiveRemArrays(void); +EXPORT(sqInt) primitiveRemScalar(void); +EXPORT(sqInt) primitiveSubArrays(void); +EXPORT(sqInt) primitiveSubScalar(void); +EXPORT(sqInt) randomIntoFloatArray(void); +EXPORT(sqInt) randomIntoIntegerArray(void); +EXPORT(sqInt) randomRange(void); +EXPORT(sqInt) scalarGetAngleTo(void); +EXPORT(sqInt) scalarGetDistanceTo(void); +EXPORT(sqInt) setHeadingArrayFrom(void); +EXPORT(sqInt) setInterpreter(struct VirtualMachine*anInterpreter); +EXPORT(sqInt) setScalarHeading(void); +EXPORT(sqInt) shutdownModule(void); +EXPORT(sqInt) turtleScalarSetX(void); +EXPORT(sqInt) turtleScalarSetY(void); +EXPORT(sqInt) turtlesSetX(void); +EXPORT(sqInt) turtlesSetY(void); +EXPORT(sqInt) vectorGetAngleTo(void); +EXPORT(sqInt) vectorGetDistanceTo(void); +EXPORT(sqInt) zoomBitmap(void); +#pragma export off +/*** Variables ***/ + +#ifdef SQUEAK_BUILTIN_PLUGIN +extern +#endif +struct VirtualMachine* interpreterProxy; +static unsigned int kedamaRandomSeed; +static const char *moduleName = +#ifdef SQUEAK_BUILTIN_PLUGIN + "KedamaPlugin2 23 June 2014 (i)" +#else + "KedamaPlugin2 23 June 2014 (e)" +#endif +; +static unsigned int randA; +static unsigned int randM; +static unsigned int randQ; +static unsigned int randR; + + +static double degreesFromXy(double x, double y) { + double tanVal; + double theta; + + if (x == 0.0) { + if (y >= 0.0) { + return 90.0; + } else { + return 270.0; + } + } else { + tanVal = y / x; + theta = atan(tanVal); + if (x >= 0.0) { + if (y >= 0.0) { + return theta / 0.0174532925199433; + } else { + return 360.0 + (theta / 0.0174532925199433); + } + } else { + return 180.0 + (theta / 0.0174532925199433); + } + } + return 0.0; +} + +static double degreesToRadians(double degrees) { + double deg; + double headingRadians; + int q; + + deg = 90.0 - degrees; + q = deg / 360.0; + if (deg < 0.0) { + q -= 1; + } + headingRadians = (deg - (q * 360.0)) * 0.0174532925199433; + return headingRadians; +} + +EXPORT(sqInt) drawTurtlesInArray(void) { + sqInt bitsIndex; + unsigned int *colorArray; + sqInt colorOop; + unsigned int *destBits; + sqInt destHeight; + sqInt destOop; + sqInt destWidth; + sqInt i; + sqInt size; + sqInt visible; + unsigned char *visibleArray; + sqInt visibleOop; + sqInt x; + float *xArray; + sqInt xOop; + sqInt y; + float *yArray; + sqInt yOop; + + visibleOop = interpreterProxy->stackValue(0); + colorOop = interpreterProxy->stackValue(1); + yOop = interpreterProxy->stackValue(2); + xOop = interpreterProxy->stackValue(3); + destHeight = interpreterProxy->stackIntegerValue(4); + destWidth = interpreterProxy->stackIntegerValue(5); + destOop = interpreterProxy->stackValue(6); + if (interpreterProxy->failed()) { + return null; + } + if (!(interpreterProxy->isWords(destOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(xOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(yOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(colorOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isBytes(visibleOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if ((destHeight * destWidth) != (interpreterProxy->slotSizeOf(destOop))) { + interpreterProxy->primitiveFail(); + return null; + } + size = interpreterProxy->slotSizeOf(xOop); + if ((interpreterProxy->slotSizeOf(yOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(colorOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(visibleOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + xArray = interpreterProxy->firstIndexableField(xOop); + yArray = interpreterProxy->firstIndexableField(yOop); + colorArray = interpreterProxy->firstIndexableField(colorOop); + visibleArray = interpreterProxy->firstIndexableField(visibleOop); + destBits = interpreterProxy->firstIndexableField(destOop); + for (i = 0; i <= (size - 1); i += 1) { + x = ((int) (xArray[i])); + ; + y = ((int) (yArray[i])); + ; + visible = visibleArray[i]; + if ((visible != 0) && (((x >= 0) && (y >= 0)) && ((x < destWidth) && (y < destHeight)))) { + bitsIndex = (y * destWidth) + x; + destBits[bitsIndex] = (colorArray[i]); + } + } + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->pop(7); +} + +EXPORT(sqInt) getHeadingArrayInto(void) { + double heading; + float *headingArray; + sqInt headingOop; + sqInt i; + float *resultArray; + sqInt resultOop; + sqInt size; + + resultOop = interpreterProxy->stackValue(0); + headingOop = interpreterProxy->stackValue(1); + if (interpreterProxy->failed()) { + return null; + } + if (!(interpreterProxy->isWords(headingOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(resultOop))) { + interpreterProxy->primitiveFail(); + return null; + } + size = interpreterProxy->slotSizeOf(headingOop); + if ((interpreterProxy->slotSizeOf(resultOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + headingArray = interpreterProxy->firstIndexableField(headingOop); + resultArray = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (size - 1); i += 1) { + heading = headingArray[i]; + heading = heading / 0.0174532925199433; + heading = 90.0 - heading; + if (!(heading > 0.0)) { + heading += 360.0; + } + resultArray[i] = heading; + } + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->pop(2); +} + + +/* Note: This is hardcoded so it can be run from Squeak. + The module name is used for validating a module *after* + it is loaded to check if it does really contain the module + we're thinking it contains. This is important! */ + +EXPORT(const char*) getModuleName(void) { + return moduleName; +} + +EXPORT(sqInt) getScalarHeading(void) { + double heading; + float *headingArray; + sqInt headingOop; + sqInt index; + double deg; + double degrees; + + headingOop = interpreterProxy->stackValue(0); + index = interpreterProxy->stackIntegerValue(1); + if (interpreterProxy->failed()) { + return null; + } + if (!(interpreterProxy->isWords(headingOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(headingOop)) < index) { + interpreterProxy->primitiveFail(); + return null; + } + headingArray = interpreterProxy->firstIndexableField(headingOop); + heading = headingArray[index - 1]; + /* begin radiansToDegrees: */ + degrees = heading / 0.0174532925199433; + deg = 90.0 - degrees; + if (!(deg > 0.0)) { + deg += 360.0; + } + heading = deg; + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->pop(3); + interpreterProxy->pushFloat(heading); +} + +static sqInt halt(void) { + ; +} + +EXPORT(sqInt) initialiseModule(void) { + kedamaRandomSeed = 17; + + /* magic constant = 16807 */ + + randA = 16807; + + /* magic constant = 2147483647 */ + + randM = 2147483647U; + randQ = randM / randA; + randR = randM % randA; +} + +static sqInt kedamaRandom2(sqInt range) { + sqInt hi; + sqInt lo; + sqInt r; + sqInt v; + sqInt val; + + if (range < 0) { + r = 0 - range; + } else { + r = range; + } + hi = kedamaRandomSeed / randQ; + lo = kedamaRandomSeed % randQ; + kedamaRandomSeed = (randA * lo) - (randR * hi); + v = kedamaRandomSeed & 65535; + val = ((usqInt) (v * (r + 1))) >> 16; + if (range < 0) { + return 0 - val; + } else { + return val; + } +} + +EXPORT(sqInt) kedamaSetRandomSeed(void) { + sqInt seed; + + seed = interpreterProxy->stackIntegerValue(0); + if (interpreterProxy->failed()) { + return null; + } + kedamaRandomSeed = seed & 65536; + interpreterProxy->pop(1); +} + +EXPORT(sqInt) makeMask(void) { + unsigned int alpha; + unsigned int* dOrigin; + sqInt data; + sqInt dataBits; + sqInt dataSize; + unsigned int highMask; + sqInt i; + unsigned int* mOrigin; + sqInt maskBits; + sqInt maskSize; + unsigned int pixel; + sqInt shiftAmount; + + shiftAmount = interpreterProxy->stackIntegerValue(0); + pixel = interpreterProxy->stackIntegerValue(1); + maskBits = interpreterProxy->stackValue(2); + dataBits = interpreterProxy->stackValue(3); + if (interpreterProxy->failed()) { + return null; + } + dataSize = interpreterProxy->slotSizeOf(dataBits); + maskSize = interpreterProxy->slotSizeOf(maskBits); + if (!(dataSize == maskSize)) { + interpreterProxy->primitiveFail(); + return null; + } + if (shiftAmount < -32) { + interpreterProxy->primitiveFail(); + return null; + } + if (shiftAmount > 8) { + interpreterProxy->primitiveFail(); + return null; + } + dOrigin = interpreterProxy->firstIndexableField(dataBits); + mOrigin = interpreterProxy->firstIndexableField(maskBits); + highMask = 4278190080U; + for (i = 0; i <= (dataSize - 1); i += 1) { + data = dOrigin[i]; + alpha = ((shiftAmount < 0) ? ((usqInt) data >> -shiftAmount) : ((usqInt) data << shiftAmount)); + if (alpha > 255) { + alpha = 255; + } + if (alpha < 0) { + alpha = 0; + } + mOrigin[i] = (((alpha << 24) & highMask) | pixel); + } + interpreterProxy->pop(4); +} + +EXPORT(sqInt) makeMaskLog(void) { + unsigned int alpha; + unsigned int* dOrigin; + sqInt data; + sqInt dataBits; + sqInt dataSize; + unsigned int highMask; + sqInt i; + unsigned int* mOrigin; + sqInt maskBits; + sqInt maskSize; + unsigned int max; + unsigned int* maxFirst; + double maxLog; + sqInt maxOop; + unsigned int pixel; + + maxOop = interpreterProxy->stackValue(0); + pixel = interpreterProxy->stackIntegerValue(1); + maskBits = interpreterProxy->stackValue(2); + dataBits = interpreterProxy->stackValue(3); + if (interpreterProxy->failed()) { + return null; + } + maxFirst = interpreterProxy->firstIndexableField(maxOop); + max = maxFirst[0]; + if (interpreterProxy->failed()) { + return null; + } + maxLog = log(max); + dataSize = interpreterProxy->slotSizeOf(dataBits); + maskSize = interpreterProxy->slotSizeOf(maskBits); + if (!(dataSize == maskSize)) { + interpreterProxy->primitiveFail(); + return null; + } + dOrigin = interpreterProxy->firstIndexableField(dataBits); + mOrigin = interpreterProxy->firstIndexableField(maskBits); + highMask = 4278190080U; + for (i = 0; i <= (dataSize - 1); i += 1) { + data = dOrigin[i]; + if (data == 0) { + alpha = 0; + } else { + alpha = ((sqInt)((255.0 / maxLog) * (log(data)))); + } + if (alpha > 255) { + alpha = 255; + } + mOrigin[i] = (((alpha << 24) & highMask) | pixel); + } + interpreterProxy->pop(4); +} + +EXPORT(sqInt) makeTurtlesMap(void) { + sqInt height; + sqInt index; + unsigned int *map; + sqInt mapIndex; + sqInt mapOop; + sqInt size; + unsigned int *whoArray; + sqInt whoOop; + sqInt width; + sqInt x; + float *xArray; + sqInt xOop; + sqInt y; + float *yArray; + sqInt yOop; + + height = interpreterProxy->stackIntegerValue(0); + width = interpreterProxy->stackIntegerValue(1); + yOop = interpreterProxy->stackValue(2); + xOop = interpreterProxy->stackValue(3); + whoOop = interpreterProxy->stackValue(4); + mapOop = interpreterProxy->stackValue(5); + if (!(interpreterProxy->isWords(yOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(xOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(whoOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(mapOop))) { + interpreterProxy->primitiveFail(); + return null; + } + size = interpreterProxy->slotSizeOf(whoOop); + if ((interpreterProxy->slotSizeOf(xOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(yOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(mapOop)) != (height * width)) { + interpreterProxy->primitiveFail(); + return null; + } + xArray = interpreterProxy->firstIndexableField(xOop); + yArray = interpreterProxy->firstIndexableField(yOop); + whoArray = interpreterProxy->firstIndexableField(whoOop); + map = interpreterProxy->firstIndexableField(mapOop); + for (index = 0; index <= ((height * width) - 1); index += 1) { + map[index] = 0; + } + for (index = 0; index <= (size - 1); index += 1) { + x = xArray[index]; + y = yArray[index]; + mapIndex = (width * y) + x; + if ((mapIndex >= 0) && (mapIndex < (height * width))) { + map[mapIndex] = (whoArray[index]); + } + } + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->pop(6); +} + +EXPORT(sqInt) primPixelAtXY(void) { + unsigned int *bits; + sqInt bitsOop; + sqInt height; + sqInt index; + sqInt ret; + sqInt width; + sqInt x; + double xPos; + sqInt y; + double yPos; + + height = interpreterProxy->stackIntegerValue(0); + width = interpreterProxy->stackIntegerValue(1); + yPos = interpreterProxy->stackFloatValue(2); + xPos = interpreterProxy->stackFloatValue(3); + bitsOop = interpreterProxy->stackValue(4); + if (interpreterProxy->failed()) { + return null; + } + if (!(interpreterProxy->isWords(bitsOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(bitsOop)) != (height * width)) { + interpreterProxy->primitiveFail(); + return null; + } + x = xPos; + y = yPos; + bits = interpreterProxy->firstIndexableField(bitsOop); + if ((((x >= 0) && (x < width)) && (y >= 0)) && (y < height)) { + index = (y * width) + x; + ret = bits[index]; + } else { + ret = 0; + } + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->pop(6); + interpreterProxy->pushInteger(ret); +} + +EXPORT(sqInt) primPixelAtXYPut(void) { + unsigned int *bits; + sqInt bitsOop; + sqInt height; + sqInt index; + sqInt v; + sqInt value; + sqInt width; + sqInt x; + double xPos; + sqInt y; + double yPos; + + height = interpreterProxy->stackIntegerValue(0); + width = interpreterProxy->stackIntegerValue(1); + value = interpreterProxy->stackIntegerValue(2); + yPos = interpreterProxy->stackFloatValue(3); + xPos = interpreterProxy->stackFloatValue(4); + bitsOop = interpreterProxy->stackValue(5); + if (interpreterProxy->failed()) { + return null; + } + if (!(interpreterProxy->isWords(bitsOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(bitsOop)) != (height * width)) { + interpreterProxy->primitiveFail(); + return null; + } + x = xPos; + y = yPos; + v = value; + if (v > 1073741823) { + v = 1073741823; + } + if (v < 0) { + v = 0; + } + bits = interpreterProxy->firstIndexableField(bitsOop); + if ((((x >= 0) && (x < width)) && (y >= 0)) && (y < height)) { + index = (y * width) + x; + bits[index] = v; + } + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->pop(6); +} + +EXPORT(sqInt) primPixelsAtXY(void) { + unsigned int *bits; + sqInt bitsHeight; + sqInt bitsIndex; + sqInt bitsOop; + sqInt bitsWidth; + unsigned int *destWords; + sqInt destWordsOop; + sqInt i; + sqInt size; + sqInt x; + float *xArray; + sqInt xArrayOop; + sqInt y; + float *yArray; + sqInt yArrayOop; + + destWordsOop = interpreterProxy->stackValue(0); + bitsHeight = interpreterProxy->stackIntegerValue(1); + bitsWidth = interpreterProxy->stackIntegerValue(2); + bitsOop = interpreterProxy->stackValue(3); + yArrayOop = interpreterProxy->stackValue(4); + xArrayOop = interpreterProxy->stackValue(5); + if (interpreterProxy->failed()) { + return null; + } + if (!(interpreterProxy->isWords(destWordsOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(xArrayOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(yArrayOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(bitsOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if ((bitsHeight * bitsWidth) != (interpreterProxy->slotSizeOf(bitsOop))) { + interpreterProxy->primitiveFail(); + return null; + } + size = interpreterProxy->slotSizeOf(xArrayOop); + if ((interpreterProxy->slotSizeOf(yArrayOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(destWordsOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + xArray = interpreterProxy->firstIndexableField(xArrayOop); + yArray = interpreterProxy->firstIndexableField(yArrayOop); + destWords = interpreterProxy->firstIndexableField(destWordsOop); + bits = interpreterProxy->firstIndexableField(bitsOop); + for (i = 0; i <= (size - 1); i += 1) { + x = ((int) (xArray[i])); + ; + y = ((int) (yArray[i])); + ; + if (((x >= 0) && (y >= 0)) && ((x < bitsWidth) && (y < bitsHeight))) { + bitsIndex = (y * bitsWidth) + x; + destWords[i] = (bits[bitsIndex]); + } + } + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->pop(6); +} + +EXPORT(sqInt) primScalarForward(void) { + sqInt bottomEdgeMode; + double destHeight; + double destWidth; + double dist; + float *headingArray; + sqInt headingOop; + sqInt i; + sqInt index; + sqInt leftEdgeMode; + double newX; + double newY; + sqInt rightEdgeMode; + sqInt size; + sqInt topEdgeMode; + double val; + float *xArray; + sqInt xOop; + float *yArray; + sqInt yOop; + double headingRadians; + double newX1; + double newY1; + + bottomEdgeMode = interpreterProxy->stackIntegerValue(0); + topEdgeMode = interpreterProxy->stackIntegerValue(1); + rightEdgeMode = interpreterProxy->stackIntegerValue(2); + leftEdgeMode = interpreterProxy->stackIntegerValue(3); + destHeight = interpreterProxy->stackFloatValue(4); + destWidth = interpreterProxy->stackFloatValue(5); + val = interpreterProxy->stackFloatValue(6); + headingOop = interpreterProxy->stackValue(7); + yOop = interpreterProxy->stackValue(8); + xOop = interpreterProxy->stackValue(9); + index = interpreterProxy->stackIntegerValue(10); + if (interpreterProxy->failed()) { + return null; + } + if (!(interpreterProxy->isWords(xOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(yOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(headingOop))) { + interpreterProxy->primitiveFail(); + return null; + } + size = interpreterProxy->slotSizeOf(xOop); + if ((interpreterProxy->slotSizeOf(yOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(headingOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + xArray = interpreterProxy->firstIndexableField(xOop); + yArray = interpreterProxy->firstIndexableField(yOop); + headingArray = interpreterProxy->firstIndexableField(headingOop); + dist = val; + i = index - 1; + newX = (xArray[i]) + (dist * (cos(headingArray[i]))); + newY = (yArray[i]) - (dist * (sin(headingArray[i]))); + /* begin scalarXAt:xArray:headingArray:value:destWidth:leftEdgeMode:rightEdgeMode: */ + newX1 = newX; + if (newX1 < 0.0) { + if (leftEdgeMode == 1) { + newX1 += destWidth; + } + if (leftEdgeMode == 2) { + newX1 = 0.0; + } + if (leftEdgeMode == 3) { + newX1 = 0.0 - newX1; + headingRadians = headingArray[i]; + if (headingRadians < 3.141592653589793) { + headingArray[i] = (3.141592653589793 - headingRadians); + } else { + headingArray[i] = (9.42477796076938 - headingRadians); + } + } + } + if (newX1 >= destWidth) { + if (rightEdgeMode == 1) { + newX1 -= destWidth; + } + if (rightEdgeMode == 2) { + newX1 = destWidth - 1.0e-6; + } + if (rightEdgeMode == 3) { + newX1 = (destWidth - 1.0e-6) - (newX1 - destWidth); + headingRadians = headingArray[i]; + if (headingRadians < 3.141592653589793) { + headingArray[i] = (3.141592653589793 - headingRadians); + } else { + headingArray[i] = (9.42477796076938 - headingRadians); + } + } + } + xArray[i] = newX1; + /* begin scalarYAt:yArray:headingArray:value:destHeight:topEdgeMode:bottomEdgeMode: */ + newY1 = newY; + if (newY1 < 0.0) { + if (topEdgeMode == 1) { + newY1 += destHeight; + } + if (topEdgeMode == 2) { + newY1 = 0.0; + } + if (topEdgeMode == 3) { + newY1 = 0.0 - newY1; + headingArray[i] = (6.283185307179586 - (headingArray[i])); + } + } + if (newY1 >= destHeight) { + if (bottomEdgeMode == 1) { + newY1 -= destHeight; + } + if (bottomEdgeMode == 2) { + newY1 = destHeight - 1.0e-6; + } + if (bottomEdgeMode == 3) { + newY1 = (destHeight - 1.0e-6) - (newY1 - destHeight); + headingArray[i] = (6.283185307179586 - (headingArray[i])); + } + } + yArray[i] = newY1; + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->pop(11); +} + +EXPORT(sqInt) primSetPixelsAtXY(void) { + unsigned int *bits; + sqInt bitsHeight; + sqInt bitsIndex; + sqInt bitsOop; + sqInt bitsWidth; + float *floatsValue; + sqInt fv; + sqInt i; + unsigned int intValue; + sqInt isValueInt; + sqInt isValueWordArray; + unsigned char *pArray; + sqInt pArrayOop; + sqInt size; + unsigned int value; + sqInt valueOop; + unsigned int *wordsValue; + sqInt x; + float *xArray; + sqInt xArrayOop; + sqInt y; + float *yArray; + sqInt yArrayOop; + + valueOop = interpreterProxy->stackValue(0); + bitsHeight = interpreterProxy->stackIntegerValue(1); + bitsWidth = interpreterProxy->stackIntegerValue(2); + bitsOop = interpreterProxy->stackValue(3); + yArrayOop = interpreterProxy->stackValue(4); + xArrayOop = interpreterProxy->stackValue(5); + pArrayOop = interpreterProxy->stackValue(6); + if (interpreterProxy->failed()) { + return null; + } + if (!(interpreterProxy->isBytes(pArrayOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(xArrayOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(yArrayOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(bitsOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if ((bitsHeight * bitsWidth) != (interpreterProxy->slotSizeOf(bitsOop))) { + interpreterProxy->primitiveFail(); + return null; + } + size = interpreterProxy->slotSizeOf(xArrayOop); + if ((interpreterProxy->slotSizeOf(pArrayOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(yArrayOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + pArray = interpreterProxy->firstIndexableField(pArrayOop); + xArray = interpreterProxy->firstIndexableField(xArrayOop); + yArray = interpreterProxy->firstIndexableField(yArrayOop); + isValueInt = (valueOop & 1); + if (isValueInt) { + intValue = (valueOop >> 1); + value = intValue; + } else { + if ((interpreterProxy->slotSizeOf(valueOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + isValueWordArray = interpreterProxy->isMemberOf(valueOop, "WordArray"); + if (isValueWordArray) { + wordsValue = interpreterProxy->firstIndexableField(valueOop); + } else { + floatsValue = interpreterProxy->firstIndexableField(valueOop); + } + } + bits = interpreterProxy->firstIndexableField(bitsOop); + for (i = 0; i <= (size - 1); i += 1) { + if ((pArray[i]) == 1) { + x = ((int) (xArray[i])); + ; + y = ((int) (yArray[i])); + ; + if (((x >= 0) && (y >= 0)) && ((x < bitsWidth) && (y < bitsHeight))) { + bitsIndex = (y * bitsWidth) + x; + if (isValueInt) { + bits[bitsIndex] = value; + } else { + if (isValueWordArray) { + bits[bitsIndex] = (wordsValue[i]); + } else { + fv = floatsValue[i]; + ; + bits[bitsIndex] = fv; + } + } + } + } + } + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->pop(7); +} + +EXPORT(sqInt) primTurtlesForward(void) { + sqInt bottomEdgeMode; + double destHeight; + double destWidth; + double dist; + float *headingArray; + sqInt headingOop; + sqInt i; + sqInt isValVector; + sqInt leftEdgeMode; + double newX; + double newY; + unsigned char *pArray; + sqInt pOop; + sqInt rightEdgeMode; + sqInt size; + sqInt topEdgeMode; + double val; + float *valArray; + sqInt valOop; + float *xArray; + sqInt xOop; + float *yArray; + sqInt yOop; + double headingRadians; + double newX1; + double newY1; + + bottomEdgeMode = interpreterProxy->stackIntegerValue(0); + topEdgeMode = interpreterProxy->stackIntegerValue(1); + rightEdgeMode = interpreterProxy->stackIntegerValue(2); + leftEdgeMode = interpreterProxy->stackIntegerValue(3); + destHeight = interpreterProxy->stackFloatValue(4); + destWidth = interpreterProxy->stackFloatValue(5); + valOop = interpreterProxy->stackValue(6); + headingOop = interpreterProxy->stackValue(7); + yOop = interpreterProxy->stackValue(8); + xOop = interpreterProxy->stackValue(9); + pOop = interpreterProxy->stackValue(10); + if (interpreterProxy->failed()) { + return null; + } + if (!(interpreterProxy->isBytes(pOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(xOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(yOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (!(interpreterProxy->isWords(headingOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if (interpreterProxy->isFloatObject(valOop)) { + isValVector = 0; + } else { + if (interpreterProxy->isWords(valOop)) { + isValVector = 1; + } else { + interpreterProxy->primitiveFail(); + return null; + } + } + size = interpreterProxy->slotSizeOf(xOop); + if ((interpreterProxy->slotSizeOf(yOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(headingOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(pOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + if (isValVector) { + if ((interpreterProxy->slotSizeOf(valOop)) != size) { + interpreterProxy->primitiveFail(); + return null; + } + } + pArray = interpreterProxy->firstIndexableField(pOop); + xArray = interpreterProxy->firstIndexableField(xOop); + yArray = interpreterProxy->firstIndexableField(yOop); + headingArray = interpreterProxy->firstIndexableField(headingOop); + if (isValVector) { + valArray = interpreterProxy->firstIndexableField(valOop); + } else { + val = interpreterProxy->floatValueOf(valOop); + } + for (i = 0; i <= (size - 1); i += 1) { + if ((pArray[i]) == 1) { + if (isValVector) { + dist = valArray[i]; + } else { + dist = val; + } + newX = (xArray[i]) + (dist * (cos(headingArray[i]))); + newY = (yArray[i]) - (dist * (sin(headingArray[i]))); + /* begin scalarXAt:xArray:headingArray:value:destWidth:leftEdgeMode:rightEdgeMode: */ + newX1 = newX; + if (newX1 < 0.0) { + if (leftEdgeMode == 1) { + newX1 += destWidth; + } + if (leftEdgeMode == 2) { + newX1 = 0.0; + } + if (leftEdgeMode == 3) { + newX1 = 0.0 - newX1; + headingRadians = headingArray[i]; + if (headingRadians < 3.141592653589793) { + headingArray[i] = (3.141592653589793 - headingRadians); + } else { + headingArray[i] = (9.42477796076938 - headingRadians); + } + } + } + if (newX1 >= destWidth) { + if (rightEdgeMode == 1) { + newX1 -= destWidth; + } + if (rightEdgeMode == 2) { + newX1 = destWidth - 1.0e-6; + } + if (rightEdgeMode == 3) { + newX1 = (destWidth - 1.0e-6) - (newX1 - destWidth); + headingRadians = headingArray[i]; + if (headingRadians < 3.141592653589793) { + headingArray[i] = (3.141592653589793 - headingRadians); + } else { + headingArray[i] = (9.42477796076938 - headingRadians); + } + } + } + xArray[i] = newX1; + /* begin scalarYAt:yArray:headingArray:value:destHeight:topEdgeMode:bottomEdgeMode: */ + newY1 = newY; + if (newY1 < 0.0) { + if (topEdgeMode == 1) { + newY1 += destHeight; + } + if (topEdgeMode == 2) { + newY1 = 0.0; + } + if (topEdgeMode == 3) { + newY1 = 0.0 - newY1; + headingArray[i] = (6.283185307179586 - (headingArray[i])); + } + } + if (newY1 >= destHeight) { + if (bottomEdgeMode == 1) { + newY1 -= destHeight; + } + if (bottomEdgeMode == 2) { + newY1 = destHeight - 1.0e-6; + } + if (bottomEdgeMode == 3) { + newY1 = (destHeight - 1.0e-6) - (newY1 - destHeight); + headingArray[i] = (6.283185307179586 - (headingArray[i])); + } + } + yArray[i] = newY1; + } + } + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->pop(11); +} + +EXPORT(sqInt) primUpHill(void) { + unsigned int *bits; + sqInt bitsOop; + sqInt endX; + sqInt endY; + sqInt height; + sqInt maxVal; + sqInt maxValX; + sqInt maxValY; + double ret; + sqInt rowOffset; + sqInt sniffRange; + sqInt startX; + sqInt startY; + double tH; + double tX; + double tY; + sqInt thisVal; + sqInt turtleX; + sqInt turtleY; + sqInt width; + sqInt x; + sqInt y; + double deg; + double degrees; + + sniffRange = interpreterProxy->stackIntegerValue(0); + height = interpreterProxy->stackIntegerValue(1); + width = interpreterProxy->stackIntegerValue(2); + bitsOop = interpreterProxy->stackValue(3); + tH = interpreterProxy->stackFloatValue(4); + tY = interpreterProxy->stackFloatValue(5); + tX = interpreterProxy->stackFloatValue(6); + if (interpreterProxy->failed()) { + return null; + } + if (!(interpreterProxy->isWords(bitsOop))) { + interpreterProxy->primitiveFail(); + return null; + } + if ((interpreterProxy->slotSizeOf(bitsOop)) != (height * width)) { + interpreterProxy->primitiveFail(); + return null; + } + bits = interpreterProxy->firstIndexableField(bitsOop); + turtleX = tX; + turtleY = tY; + turtleX = ((turtleX < 0) ? 0 : turtleX); + turtleY = ((turtleY < 0) ? 0 : turtleY); + turtleX = ((turtleX < (width - 1)) ? turtleX : (width - 1)); + turtleY = ((turtleY < (height - 1)) ? turtleY : (height - 1)); + startX = (((turtleX - sniffRange) < 0) ? 0 : (turtleX - sniffRange)); + endX = (((turtleX + sniffRange) < (width - 1)) ? (turtleX + sniffRange) : (width - 1)); + startY = (((turtleY - sniffRange) < 0) ? 0 : (turtleY - sniffRange)); + endY = (((turtleY + sniffRange) < (height - 1)) ? (turtleY + sniffRange) : (height - 1)); + maxVal = bits[(turtleY * width) + turtleX]; + maxValX = -1; + for (y = startY; y <= endY; y += 1) { + rowOffset = y * width; + for (x = startX; x <= endX; x += 1) { + thisVal = bits[rowOffset + x]; + if (thisVal > maxVal) { + maxValX = x; + maxValY = y; + maxVal = thisVal; + } + } + } + if (-1 == maxValX) { + /* begin radiansToDegrees: */ + degrees = tH / 0.0174532925199433; + deg = 90.0 - degrees; + if (!(deg > 0.0)) { + deg += 360.0; + } + ret = deg; + } else { + ret = (degreesFromXy(((double) (maxValX - turtleX)), ((double) (maxValY - turtleY)))) + 90.0; + } + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->pop(8); + interpreterProxy->pushFloat(ret); +} + +EXPORT(sqInt) primitiveAddArrays(void) { + sqInt argOop; + float *floatsArg; + float *floatsRcvr; + float *floatsResult; + sqInt i; + sqInt isArgWords; + sqInt isRcvrWords; + sqInt length; + sqInt rcvrOop; + sqInt resultOop; + unsigned int *wordsArg; + unsigned int *wordsRcvr; + unsigned int *wordsResult; + + resultOop = interpreterProxy->stackObjectValue(0); + argOop = interpreterProxy->stackObjectValue(1); + rcvrOop = interpreterProxy->stackObjectValue(2); + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->success(interpreterProxy->isWords(argOop)); + interpreterProxy->success(interpreterProxy->isWords(rcvrOop)); + interpreterProxy->success(interpreterProxy->isWords(resultOop)); + if (interpreterProxy->failed()) { + return null; + } + length = interpreterProxy->stSizeOf(argOop); + interpreterProxy->success(length == (interpreterProxy->stSizeOf(rcvrOop))); + interpreterProxy->success(length == (interpreterProxy->stSizeOf(resultOop))); + if (interpreterProxy->failed()) { + return null; + } + isArgWords = interpreterProxy->isMemberOf(argOop, "WordArray"); + isRcvrWords = interpreterProxy->isMemberOf(rcvrOop, "WordArray"); + if (isArgWords && isRcvrWords) { + if (!(interpreterProxy->isMemberOf(resultOop, "WordArray"))) { + interpreterProxy->primitiveFail(); + return null; + } + } else { + if (!(interpreterProxy->isMemberOf(resultOop, "KedamaFloatArray"))) { + interpreterProxy->primitiveFail(); + return null; + } + } + if (isRcvrWords) { + if (isArgWords) { + wordsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + wordsArg = interpreterProxy->firstIndexableField(argOop); + wordsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + wordsResult[i] = ((wordsRcvr[i]) + (wordsArg[i])); + } + } else { + wordsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + floatsArg = interpreterProxy->firstIndexableField(argOop); + floatsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + floatsResult[i] = ((wordsRcvr[i]) + (floatsArg[i])); + } + } + } else { + if (isArgWords) { + floatsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + wordsArg = interpreterProxy->firstIndexableField(argOop); + floatsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + floatsResult[i] = ((floatsRcvr[i]) + (wordsArg[i])); + } + } else { + floatsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + floatsArg = interpreterProxy->firstIndexableField(argOop); + floatsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + floatsResult[i] = ((floatsRcvr[i]) + (floatsArg[i])); + } + } + } + interpreterProxy->pop(4); + interpreterProxy->push(resultOop); +} + +EXPORT(sqInt) primitiveAddScalar(void) { + sqInt argOop; + double floatArg; + float *floatsRcvr; + float *floatsResult; + sqInt i; + int intArg; + sqInt isArgInt; + sqInt isRcvrWords; + sqInt length; + sqInt rcvrOop; + sqInt resultOop; + unsigned int *wordsRcvr; + unsigned int *wordsResult; + + resultOop = interpreterProxy->stackObjectValue(0); + argOop = interpreterProxy->stackValue(1); + rcvrOop = interpreterProxy->stackObjectValue(2); + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->success(interpreterProxy->isWords(rcvrOop)); + interpreterProxy->success(interpreterProxy->isWords(resultOop)); + if (interpreterProxy->failed()) { + return null; + } + length = interpreterProxy->stSizeOf(rcvrOop); + interpreterProxy->success(length == (interpreterProxy->stSizeOf(resultOop))); + if (interpreterProxy->failed()) { + return null; + } + isArgInt = (argOop & 1); + isRcvrWords = interpreterProxy->isMemberOf(rcvrOop, "WordArray"); + if (isArgInt && isRcvrWords) { + if (!(interpreterProxy->isMemberOf(resultOop, "WordArray"))) { + interpreterProxy->primitiveFail(); + return null; + } + } else { + if (!(interpreterProxy->isMemberOf(resultOop, "KedamaFloatArray"))) { + interpreterProxy->primitiveFail(); + return null; + } + } + if (isRcvrWords) { + if (isArgInt) { + wordsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + intArg = (argOop >> 1); + wordsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + wordsResult[i] = ((wordsRcvr[i]) + intArg); + } + } else { + wordsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + floatArg = interpreterProxy->floatValueOf(argOop); + floatsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + floatsResult[i] = ((wordsRcvr[i]) + floatArg); + } + } + } else { + if (isArgInt) { + floatsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + intArg = (argOop >> 1); + floatsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + floatsResult[i] = ((floatsRcvr[i]) + intArg); + } + } else { + floatsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + floatArg = interpreterProxy->floatValueOf(argOop); + floatsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + floatsResult[i] = ((floatsRcvr[i]) + floatArg); + } + } + } + interpreterProxy->pop(4); + interpreterProxy->push(resultOop); +} + +EXPORT(sqInt) primitiveAndByteArray(void) { + sqInt i; + sqInt length; + sqInt length1; + sqInt length2; + unsigned char *otherArray; + sqInt otherOop; + unsigned char *rcvrArray; + sqInt rcvrOop; + + otherOop = interpreterProxy->stackObjectValue(0); + rcvrOop = interpreterProxy->stackValue(1); + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->success(interpreterProxy->isBytes(rcvrOop)); + interpreterProxy->success(interpreterProxy->isBytes(otherOop)); + if (interpreterProxy->failed()) { + return null; + } + length1 = interpreterProxy->stSizeOf(rcvrOop); + length2 = interpreterProxy->stSizeOf(otherOop); + if (interpreterProxy->failed()) { + return null; + } + length = length1; + if (length1 > length2) { + length = length2; + } + otherArray = interpreterProxy->firstIndexableField(otherOop); + rcvrArray = interpreterProxy->firstIndexableField(rcvrOop); + for (i = 0; i <= (length - 1); i += 1) { + rcvrArray[i] = (((rcvrArray[i]) + (otherArray[i])) == 2); + } + interpreterProxy->pop(1); +} + +EXPORT(sqInt) primitiveDivArrays(void) { + sqInt argOop; + float *floatsArg; + float *floatsRcvr; + float *floatsResult; + sqInt i; + sqInt isArgWords; + sqInt isRcvrWords; + sqInt length; + sqInt rcvrOop; + sqInt resultOop; + unsigned int *wordsArg; + unsigned int *wordsRcvr; + unsigned int *wordsResult; + + resultOop = interpreterProxy->stackObjectValue(0); + argOop = interpreterProxy->stackObjectValue(1); + rcvrOop = interpreterProxy->stackObjectValue(2); + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->success(interpreterProxy->isWords(argOop)); + interpreterProxy->success(interpreterProxy->isWords(rcvrOop)); + interpreterProxy->success(interpreterProxy->isWords(resultOop)); + if (interpreterProxy->failed()) { + return null; + } + length = interpreterProxy->stSizeOf(argOop); + interpreterProxy->success(length == (interpreterProxy->stSizeOf(rcvrOop))); + interpreterProxy->success(length == (interpreterProxy->stSizeOf(resultOop))); + if (interpreterProxy->failed()) { + return null; + } + isArgWords = interpreterProxy->isMemberOf(argOop, "WordArray"); + isRcvrWords = interpreterProxy->isMemberOf(rcvrOop, "WordArray"); + if (isArgWords && isRcvrWords) { + if (!(interpreterProxy->isMemberOf(resultOop, "WordArray"))) { + interpreterProxy->primitiveFail(); + return null; + } + } else { + if (!(interpreterProxy->isMemberOf(resultOop, "KedamaFloatArray"))) { + interpreterProxy->primitiveFail(); + return null; + } + } + if (isRcvrWords) { + if (isArgWords) { + wordsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + wordsArg = interpreterProxy->firstIndexableField(argOop); + wordsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + wordsResult[i] = ((wordsRcvr[i]) / (wordsArg[i])); + } + } else { + wordsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + floatsArg = interpreterProxy->firstIndexableField(argOop); + floatsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + floatsResult[i] = ((wordsRcvr[i]) / (floatsArg[i])); + } + } + } else { + if (isArgWords) { + floatsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + wordsArg = interpreterProxy->firstIndexableField(argOop); + floatsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + floatsResult[i] = ((floatsRcvr[i]) / (wordsArg[i])); + } + } else { + floatsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + floatsArg = interpreterProxy->firstIndexableField(argOop); + floatsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + floatsResult[i] = ((floatsRcvr[i]) / (floatsArg[i])); + } + } + } + interpreterProxy->pop(4); + interpreterProxy->push(resultOop); +} + +EXPORT(sqInt) primitiveDivScalar(void) { + sqInt argOop; + double floatArg; + float *floatsRcvr; + float *floatsResult; + sqInt i; + int intArg; + sqInt isArgInt; + sqInt isRcvrWords; + sqInt length; + sqInt rcvrOop; + sqInt resultOop; + unsigned int *wordsRcvr; + unsigned int *wordsResult; + + resultOop = interpreterProxy->stackObjectValue(0); + argOop = interpreterProxy->stackValue(1); + rcvrOop = interpreterProxy->stackObjectValue(2); + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->success(interpreterProxy->isWords(rcvrOop)); + interpreterProxy->success(interpreterProxy->isWords(resultOop)); + if (interpreterProxy->failed()) { + return null; + } + length = interpreterProxy->stSizeOf(rcvrOop); + interpreterProxy->success(length == (interpreterProxy->stSizeOf(resultOop))); + if (interpreterProxy->failed()) { + return null; + } + isArgInt = (argOop & 1); + isRcvrWords = interpreterProxy->isMemberOf(rcvrOop, "WordArray"); + if (isArgInt && isRcvrWords) { + if (!(interpreterProxy->isMemberOf(resultOop, "WordArray"))) { + interpreterProxy->primitiveFail(); + return null; + } + } else { + if (!(interpreterProxy->isMemberOf(resultOop, "KedamaFloatArray"))) { + interpreterProxy->primitiveFail(); + return null; + } + } + if (isRcvrWords) { + if (isArgInt) { + wordsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + intArg = (argOop >> 1); + wordsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + wordsResult[i] = ((wordsRcvr[i]) / intArg); + } + } else { + wordsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + floatArg = interpreterProxy->floatValueOf(argOop); + floatsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + floatsResult[i] = ((wordsRcvr[i]) / floatArg); + } + } + } else { + if (isArgInt) { + floatsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + intArg = (argOop >> 1); + floatsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + floatsResult[i] = ((floatsRcvr[i]) / intArg); + } + } else { + floatsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + floatArg = interpreterProxy->floatValueOf(argOop); + floatsResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + floatsResult[i] = ((floatsRcvr[i]) / floatArg); + } + } + } + interpreterProxy->pop(4); + interpreterProxy->push(resultOop); +} + +EXPORT(sqInt) primitiveEQArrays(void) { + sqInt argOop; + unsigned char *bytesResult; + float *floatsArg; + float *floatsRcvr; + sqInt i; + sqInt isArgWords; + sqInt isRcvrWords; + sqInt length; + sqInt rcvrOop; + sqInt resultOop; + unsigned int *wordsArg; + unsigned int *wordsRcvr; + + resultOop = interpreterProxy->stackObjectValue(0); + argOop = interpreterProxy->stackObjectValue(1); + rcvrOop = interpreterProxy->stackObjectValue(2); + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->success(interpreterProxy->isWords(argOop)); + interpreterProxy->success(interpreterProxy->isWords(rcvrOop)); + interpreterProxy->success(interpreterProxy->isBytes(resultOop)); + if (interpreterProxy->failed()) { + return null; + } + length = interpreterProxy->stSizeOf(argOop); + interpreterProxy->success(length == (interpreterProxy->stSizeOf(rcvrOop))); + interpreterProxy->success(length == (interpreterProxy->stSizeOf(resultOop))); + if (interpreterProxy->failed()) { + return null; + } + isArgWords = interpreterProxy->isMemberOf(argOop, "WordArray"); + isRcvrWords = interpreterProxy->isMemberOf(rcvrOop, "WordArray"); + if (isRcvrWords) { + if (isArgWords) { + wordsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + wordsArg = interpreterProxy->firstIndexableField(argOop); + bytesResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + bytesResult[i] = ((wordsRcvr[i]) == (wordsArg[i])); + } + } else { + wordsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + floatsArg = interpreterProxy->firstIndexableField(argOop); + bytesResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + bytesResult[i] = ((wordsRcvr[i]) == (floatsArg[i])); + } + } + } else { + if (isArgWords) { + floatsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + wordsArg = interpreterProxy->firstIndexableField(argOop); + bytesResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + bytesResult[i] = ((floatsRcvr[i]) == (wordsArg[i])); + } + } else { + floatsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + floatsArg = interpreterProxy->firstIndexableField(argOop); + bytesResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + bytesResult[i] = ((floatsRcvr[i]) == (floatsArg[i])); + } + } + } + interpreterProxy->pop(4); + interpreterProxy->push(resultOop); +} + +EXPORT(sqInt) primitiveEQScalar(void) { + sqInt argOop; + unsigned char *bytesResult; + double floatArg; + float *floatsRcvr; + sqInt i; + int intArg; + sqInt isArgInt; + sqInt isRcvrWords; + sqInt length; + sqInt rcvrOop; + sqInt resultOop; + unsigned int *wordsRcvr; + + resultOop = interpreterProxy->stackObjectValue(0); + argOop = interpreterProxy->stackValue(1); + rcvrOop = interpreterProxy->stackObjectValue(2); + if (interpreterProxy->failed()) { + return null; + } + interpreterProxy->success(interpreterProxy->isWords(rcvrOop)); + interpreterProxy->success(interpreterProxy->isBytes(resultOop)); + if (interpreterProxy->failed()) { + return null; + } + length = interpreterProxy->stSizeOf(rcvrOop); + interpreterProxy->success(length == (interpreterProxy->stSizeOf(resultOop))); + if (interpreterProxy->failed()) { + return null; + } + isArgInt = (argOop & 1); + isRcvrWords = interpreterProxy->isMemberOf(rcvrOop, "WordArray"); + if (isRcvrWords) { + if (isArgInt) { + wordsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + intArg = (argOop >> 1); + bytesResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + bytesResult[i] = ((wordsRcvr[i]) == intArg); + } + } else { + wordsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + floatArg = interpreterProxy->floatValueOf(argOop); + bytesResult = interpreterProxy->firstIndexableField(resultOop); + for (i = 0; i <= (length - 1); i += 1) { + bytesResult[i] = ((wordsRcvr[i]) == floatArg); + } + } + } else { + if (isArgInt) { + floatsRcvr = interpreterProxy->firstIndexableField(rcvrOop); + intArg = (argOop >> 1); + bytesResult = interpreterProxy->firstIndexableField(resultOop); @@ Diff output truncated at 50000 characters. @@

1 0

VM Maker: VMMaker-dtl.347.mcz
by commits＠source.squeak.org 24 Jun '14

24 Jun '14

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.347.mcz ==================== Summary ==================== Name: VMMaker-dtl.347 Author: dtl Time: 23 June 2014, 6:55:41.171 pm UUID: 0e985655-74a3-4561-8daf-4a4740c19a3b Ancestors: VMMaker-dtl.346 Ensure that initializeSmallIntegers is called before generating the interpreter file because pool constants may have been changed when running simulation (symptom: a 64 bit image crashes because ConstMinusOne has been rendered as unsigned 32 bit, when it should be twos complement -1). Remove KedamaPlugin from defaultUnixSpec because it duplicates the more up to date KedamaPlugin2. Fix a trivial comment typo in SlangTest>>testFetchClssOfIsFullyInlined. =============== Diff against VMMaker-dtl.346 =============== Item was changed: ----- Method: SlangTest>>testFetchClassOfIsFullyInlined (in category 'testing interpreter') ----- testFetchClassOfIsFullyInlined + "Test for inlining error resolved in VMMaker 4.13.4 (VMMaker-dtl.343). In this example, - "Test for inlining error resolved in VMMaker 4.13.4 (VMMaker-dtl.343).. In this example, the ObjectMemoy>>wordMask method must be inlined (marked complete) in order for fetchClassOf: to be inlined. Some versions of the inliner treat the #cCode:inSmalltalk: at the root of the wordMask method as an indication that it is not completely inlined. This in turn prevents fetchClassOf: from being inlined." | stssi m | stssi := SlangTestSupportInterpreter inline: true. m := stssi asCString: #tryInliningForFetchClassOf:. self deny: ('*fetchClassOf(rcvr);*' match: m). "fetchClassOf() should not appear as a function call" self assert: ('*/# begin fetchClassOf: #/*' match: m). "fetchClassOf: has been inlined" ! Item was changed: ----- Method: VMMaker>>generateInterpreterFile (in category 'generate sources') ----- generateInterpreterFile "Translate the Smalltalk description of the virtual machine into C. If 'self doInlining' is true, small method bodies are inlined to reduce procedure call overhead. On the PPC, this results in a factor of three speedup with only 30% increase in code size. Subclasses can use specialised versions of CCodeGenerator and interpreterClass." | cg | self needsToRegenerateInterpreterFile ifFalse: [^nil]. self interpreterClass initialize. ObjectMemory initializeConstants. + ObjectMemory initializeSmallIntegers. "Overridden in simulation, restore for code generation" Interpreter initializeInterpreterSourceVersion. cg := self createCodeGenerator. cg declareMethodsStatic: false. self interpreterClass initializeCodeGenerator: cg. cg vmClass: self interpreterClass. cg storeHeaderFor: interpreterClassName onFile: self interpreterHeaderPath. cg storeCodeOnFile: self interpreterFilePath doInlining: self doInlining. self interpreterClass additionalHeadersDo: [:headerName :headerContents| | filePath | filePath := self coreVMDirectory fullNameFor: headerName. (cg needToGenerateHeader: headerName file: filePath contents: headerContents) ifTrue: [cg storeHeaderOnFile: filePath contents: headerContents]]. self interpreterClass apiExportHeaderName ifNotNil: [cg storeAPIExportHeader: self interpreterClass apiExportHeaderName OnFile: (self sourceFilePathFor: self interpreterClass apiExportHeaderName)]. ! Item was changed: ----- Method: VMMakerTool class>>defaultUnixSpec (in category 'configurations') ----- defaultUnixSpec "Typical VMMaker spec for a unix/linux target platform" "VMMakerTool defaultUnixSpec" ^#( #( "internal plugins" #ADPCMCodecPlugin #AsynchFilePlugin #BMPReadWriterPlugin #BalloonEnginePlugin #BitBltSimulation #CroquetPlugin #DSAPlugin #DeflatePlugin #DropPlugin #FFTPlugin #FilePlugin #FloatArrayPlugin #FloatMathPlugin #GeniePlugin #JPEGReadWriter2Plugin #JPEGReaderPlugin #JoystickTabletPlugin #KlattSynthesizerPlugin #LargeIntegersPlugin #LocalePlugin #MD5Plugin #Matrix2x3Plugin #MiscPrimitivePlugin #RandPlugin #RePlugin #SHA256Plugin #SecurityPlugin #SerialPlugin #SlangTestPlugin #SlangTestSupportPlugin #SocketPlugin #SoundCodecPlugin #SoundGenerationPlugin #SoundPlugin #StarSqueakPlugin #SurfacePlugin ) #( "external plugins" #B3DAcceleratorPlugin #B3DEnginePlugin #ClipboardExtendedPlugin #DBusPlugin #FFIPlugin #FileCopyPlugin #FT2Plugin #GStreamerPlugin #HostWindowPlugin - #KedamaPlugin #KedamaPlugin2 #MIDIPlugin #Mpeg3Plugin #RomePlugin #UUIDPlugin #UnixAioPlugin #UnixOSProcessPlugin #XDisplayControlPlugin #CameraPlugin #ScratchPlugin #UnicodePlugin #WeDoPlugin #SqueakSSLPlugin ) true "inline flag" false "forBrowser flag" 'unix' "platform" 'src' "source directory for generated sources" 'platforms' "path to platform sources" 4 "unused, was bytesPerWord which is now a compile time definition" true "unused, was flag for source directtory pathname is relative" true "unused, was flag for platforms directory path is relative" 'Interpreter' "interpreter class name" )!

1 0

Cog/build.linux32x86/squeak.cog.v3/build.debug/mvm heads up on conflicting -DDEBUGVM flags
by gettimothy 24 Jun '14

24 Jun '14

Hi Eliot. I am guessing this could cause problems as it is specifically in the build.debug file... conflict in bold #!/bin/bash # debug VM with VM profiler and threaded heartbeat INSTALLDIR=debug/coglinuxht OPT="-g3 -O0 -DDEBUGVM=1" if [ $# -ge 1 ]; then INSTALLDIR="$1"; shift fi echo -n "clean? " read a case $a in n|no|N|NO) echo "ok but this isn't safe!!";; *) test -f Makefile && make reallyclean esac test -f config.h || ../../../platforms/unix/config/configure --without-npsqueak \ CC="gcc -m32" \ CXX="g++ -m32" \ CFLAGS="$OPT -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=0" \ LIBS="-lpthread -luuid" \ LDFLAGS=-Wl,-z,now rm -f vm/sqUnixMain.o # nuke version info rm -rf ../../../products/$INSTALLDIR # prefer make install prefix=`readlink -f \`pwd\`/../../../products/$INSTALLDIR` # but older linux readlinks lack the -f flag make install prefix=`(cd ../../../;pwd)`/products/$INSTALLDIR 2>&1 | tee LOG cheers, tty.

2 2

VM Maker: CMakeVMMakerSqueak-tty.75.mcz
by commits＠source.squeak.org 23 Jun '14

23 Jun '14

Timothy M uploaded a new version of CMakeVMMakerSqueak to project VM Maker: http://source.squeak.org/VMMaker/CMakeVMMakerSqueak-tty.75.mcz ==================== Summary ==================== Name: CMakeVMMakerSqueak-tty.75 Author: tty Time: 23 June 2014, 5:37:26.11 pm UUID: c610573d-9589-4801-b941-981d7efea435 Ancestors: CMakeVMMakerSqueak-tty.74 started RedirectMethodsWithArg tests used to test config methods that require aMaker argument. These test each method call in the VMGeneratorForSqueak>>generate method. and make sure a configuration implements them correctly. Its coming along. I have noted that the step-by-step instructions will have a corresponding Test that the user can use to check their work. =============== Diff against CMakeVMMakerSqueak-tty.74 =============== Item was added: + ----- Method: CMakeVMGeneratorForSqueak>>configurationName (in category 'as yet unclassified') ----- + configurationName + ^ config class name! Item was changed: + ----- Method: CMakeVMGeneratorForSqueak>>generate (in category 'code generation') ----- - ----- Method: CMakeVMGeneratorForSqueak>>generate (in category 'as yet unclassified') ----- generate "overriding CMakeVMGenerator to provide additional method calls" | intPlugins extPlugins | output := String new writeStream. - self break. config setGlobalOptions: self. self printHeader; project: config executableName. config setGlobalOptionsAfterDetermineSystem: self. config setupDirectories: self. self message: '${CMAKE_MODULE_PATH}'. self set: 'CMAKE_CONFIGURATION_TYPES' to: 'Release'. config preferredIncludes do: [ :each | self includeDirectories: each ]. self includeDirectories: self includeDirs. config standardIncludes do: [:each | self includeDirectories: each ]. "tty. we replace the catchAll compilerFlags with methods that reflect the 'mvm' file used in the gnu-build system i.e. oscogvm/build.linux32x86/squeak.cog.v3/build/mvm My intent is to make setup of a new configuration easier for somebody coming from GNU-land" "self addDefinitions: config compilerFlags." config configureFlags do:[:each | self configureFlags: each]. config cC do:[:each | self cC: each]. config cXX do:[:each | self cXX: each]. config lDFlags do:[:each | self lDFlags: each]. config libs do:[:each | self libs: each]. self flag:'tty'. "This should be replaced with judicious use of above" self addDefinitions: config cFlags. "CFLAGS=$OPT -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=0" self flag:'tty'. "end this should be replaced" config extraVMSettings: self. self puts: 'add_executable(' , config executableName, ' ', config executableType, ' ' , self sources , ')'. intPlugins := self generatePluginConfigs: config internalPlugins internal: true. extPlugins := self generatePluginConfigs: config externalPlugins internal: false. self processThirdpartyLibraries. self processPlugins: intPlugins, extPlugins. config setExtraTargetProperties: self. self cmd: 'target_link_libraries' params: self moduleName , ' ${LINKLIBS}'. config postBuildActions: self. self saveFile. self generateBuildScript.! Item was removed: - TestCase subclass: #CMakeVMMakerSqueakNoRedirectMethodsTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'CMakeVMMakerSqueak-Tests'! - - !CMakeVMMakerSqueakNoRedirectMethodsTest commentStamp: 'tty 6/23/2014 10:19' prior: 0! - A CMakeVMMakerSqueakRedirectMethodsTest tests that all Concrete Configuration implement the abstract methods of form: - makes sure that all the redirect methods are implemented by calling them directly instead of through the redirect mechanism - " - x - |d | - d:= SqueakCMakeVMMakerAbstractBuilder default buildTypeAndDirectoryInfo copy. - d - at: #build put: [self xBuild]; - at: #buildAssert put: [self xBuildAssert]; - at: #buildAssertITimerHeartbeat put: [self xBuildAssertITimerHeartbeat]; - at:#buildDebug put: [self xBuildDebug]; - at: #buildDebugITimerHeartbeat put: [self xBuildDebugITimerHeartbeat ]; - at: #buildITimerHeartbeat put: [self xBuildITimerHeartbeat]; - at: #buildMultiThreaded put: [self xBuildMultiThreaded]; - at: #buildMultiThreadedAssert put: [self xBuildMultiThreadedAssert]; - at: #buildMultiThreadedDebug put: [self xBuildMultiThreadedDebug ]; - at: #buildNone put:[self xNoBuildType]. - ^(d at: buildType) value - - " - ! Item was removed: - ----- Method: CMakeVMMakerSqueakNoRedirectMethodsTest>>testCommonCompilerFlags (in category 'as yet unclassified') ----- - testCommonCompilerFlags - " #(#SqueakWindowsConfig #SqueakUnixConfig #SqueakMacintoshConfig) - do:[:each | - (Smalltalk at:each) - allSubclassesDo:[:configuration | | o | - o:= configuration new. - (o excludeFromBuild not) |(configuration isAbstractBaseClass) - ifTrue:[ - self assert:(o commonCompilerFlags isArray). - self assert:(o compilerFlagsAssert isArray). - self assert:(o compilerFlagsAssertITimerHeartbeat isArray). - self assert:(o compilerFlagsBuild isArray). - self assert:(o compilerFlagsDebug isArray). - self assert:(o compilerFlagsDebugITimerHeartbeat isArray). - self assert:(o compilerFlagsIHeartbeatTimer isArray). - self assert:(o compilerFlagsMultiThreaded isArray). - self assert:(o compilerFlagsMultiThreadedAssert isArray). - self assert:(o compilerFlagsMultiThreadedDebug isArray)]]]"! Item was removed: - ----- Method: CMakeVMMakerSqueakNoRedirectMethodsTest>>testCompilerFlags (in category 'as yet unclassified') ----- - testCompilerFlags - #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig ) - do:[:each | - (Smalltalk at:each) - allSubclassesDo:[:configuration | | o | - o:= configuration new. - (o excludeFromBuild not) - ifTrue:[ - self assert:(o compilerFlagsBuild isArray). - self assert:(o compilerFlagsBuildAssert isArray). - self assert:(o compilerFlagsBuildAssertITimerHeartbeat isArray). - self assert:(o compilerFlagsBuildDebug isArray). - self assert:(o compilerFlagsBuildDebugITimerHeartbeat isArray). - self assert:(o compilerFlagsBuildITimerHeartbeat isArray). - self assert:(o compilerFlagsBuildMultiThreaded isArray). - self assert:(o compilerFlagsBuildMultiThreadedAssert isArray). - self assert:(o compilerFlagsBuildMultiThreadedDebug isArray)]]] - - - - - - - - ! Item was removed: - ----- Method: CMakeVMMakerSqueakNoRedirectMethodsTest>>testLinkFlags (in category 'as yet unclassified') ----- - testLinkFlags - #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig ) - do:[:each | - (Smalltalk at:each) - subclassesDo:[:configuration | | o | - o:= configuration new. - (o excludeFromBuild not) |(configuration isAbstractBaseClass) - ifTrue:[ - o:= configuration new. - (o excludeFromBuild not) - ifTrue:[]]]]! Item was changed: ----- Method: CMakeVMMakerSqueakRedirectMethodsTest>>testCommonCompilerFlags (in category 'as yet unclassified') ----- testCommonCompilerFlags + #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig ) - " #(#SqueakWindowsConfig #SqueakUnixConfig #SqueakMacintoshConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o buildTypes| - allSubclassesDo:[:configuration | | o | o:= configuration new. + (o excludeFromBuild not) & (configuration isAbstractBaseClass not) - (o excludeFromBuild not) |(configuration isAbstractBaseClass) ifTrue:[ + buildTypes:=o availableBuildTypes copyWithoutAll:#(#buildNone). + buildTypes do:[:buildType | + o configureForBuildType: buildType. + self assert:(o commonCompilerFlags isArray)]]]]. + ! - self assert:(o commonCompilerFlags isArray). - self assert:(o compilerFlagsAssert isArray). - self assert:(o compilerFlagsAssertITimerHeartbeat isArray). - self assert:(o compilerFlagsBuild isArray). - self assert:(o compilerFlagsDebug isArray). - self assert:(o compilerFlagsDebugITimerHeartbeat isArray). - self assert:(o compilerFlagsIHeartbeatTimer isArray). - self assert:(o compilerFlagsMultiThreaded isArray). - self assert:(o compilerFlagsMultiThreadedAssert isArray). - self assert:(o compilerFlagsMultiThreadedDebug isArray)]]]"! Item was changed: ----- Method: CMakeVMMakerSqueakRedirectMethodsTest>>testCompilerFlags (in category 'as yet unclassified') ----- testCompilerFlags #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig ) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o buildTypes| - allSubclassesDo:[:configuration | | o | o:= configuration new. + (o excludeFromBuild not) & (configuration isAbstractBaseClass not) - (o excludeFromBuild not) ifTrue:[ + buildTypes:=o availableBuildTypes copyWithoutAll:#(#buildNone). + buildTypes do:[:buildType | + o configureForBuildType: buildType. + self assert:(o compilerFlags isString). + self assert:(o compilerFlags size > 0)]]]]. - self assert:(o compilerFlagsBuild isArray). - self assert:(o compilerFlagsBuildAssert isArray). - self assert:(o compilerFlagsBuildAssertITimerHeartbeat isArray). - self assert:(o compilerFlagsBuildDebug isArray). - self assert:(o compilerFlagsBuildDebugITimerHeartbeat isArray). - self assert:(o compilerFlagsBuildITimerHeartbeat isArray). - self assert:(o compilerFlagsBuildMultiThreaded isArray). - self assert:(o compilerFlagsBuildMultiThreadedAssert isArray). - self assert:(o compilerFlagsBuildMultiThreadedDebug isArray)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakRedirectMethodsTest>>testLinkFlags (in category 'as yet unclassified') ----- testLinkFlags #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig ) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o buildTypes| + o:= configuration new. + (o excludeFromBuild not) & (configuration isAbstractBaseClass not) + ifTrue:[ + buildTypes:=o availableBuildTypes copyWithoutAll:#(#buildNone). + buildTypes do:[:buildType | + o configureForBuildType: buildType. + self assert:(o linkFlags isArray)]]]].! - subclassesDo:[:configuration | | o | - o:= configuration new. - (o excludeFromBuild not) |(configuration isAbstractBaseClass) - ifTrue:[ - o:= configuration new. - (o excludeFromBuild not) - ifTrue:[]]]]! Item was added: + ----- Method: CMakeVMMakerSqueakRedirectMethodsTest>>testPreferredIncludes (in category 'as yet unclassified') ----- + testPreferredIncludes + #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig ) + do:[:each | + (Smalltalk at:each) + allSubclassesDo:[:configuration | | o buildTypes| + o:= configuration new. + (o excludeFromBuild not) & (configuration isAbstractBaseClass not) + ifTrue:[ + buildTypes:=o availableBuildTypes copyWithoutAll:#(#buildNone). + buildTypes do:[:buildType | + o configureForBuildType: buildType. + self assert:(o preferredIncludes isKindOf: Collection)]]]]. + ! Item was added: + ----- Method: CMakeVMMakerSqueakRedirectMethodsTest>>testStandardIncludes (in category 'as yet unclassified') ----- + testStandardIncludes + #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig ) + do:[:each | + (Smalltalk at:each) + allSubclassesDo:[:configuration | | o buildTypes| + o:= configuration new. + (o excludeFromBuild not) & (configuration isAbstractBaseClass not) + ifTrue:[ + buildTypes:=o availableBuildTypes copyWithoutAll:#(#buildNone). + buildTypes do:[:buildType | + o configureForBuildType: buildType. + self assert:(o standardIncludes isKindOf: Collection)]]]]. + ! Item was added: + ----- Method: CMakeVMMakerSqueakRedirectMethodsWithArgTest>>testSetGlobalOptions (in category 'as yet unclassified') ----- + testSetGlobalOptions + self flag:'tty'. "Is the self shouldnt sufficient?" + #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig ) + do:[:each | + (Smalltalk at:each) + allSubclassesDo:[:configuration | | o buildTypes vmGenerator| + o:= configuration new. + (o excludeFromBuild not) & (configuration isAbstractBaseClass not) + ifTrue:[ + buildTypes:=o availableBuildTypes copyWithoutAll:#(#buildNone). + buildTypes do:[:buildType | + o configureForBuildType: buildType. + vmGenerator:=CMakeVMGeneratorForSqueak new. + vmGenerator output:(String new writeStream). + self shouldnt: [o setGlobalOptions: vmGenerator] raise: Error]]]]. + ! Item was changed: CPlatformConfig subclass: #CPlatformConfigForSqueak instanceVariableNames: 'buildType generateBuild generateBuildAssert generateBuildAssertITimerHeartbeat generateBuildDebug generateBuildDebugITimerHeartbeat generateBuildDebugMultiThreaded generateBuildIHeartbeatTimer generateBuildMultiThreaded generateBuildMultiThreadedAssert generateBuildMultiThreadedDebug' classVariableNames: '' poolDictionaries: '' category: 'CMakeVMMakerSqueak'! CPlatformConfigForSqueak class instanceVariableNames: 'isAbstractBaseClass'! + !CPlatformConfigForSqueak commentStamp: 'tty 6/23/2014 17:02' prior: 0! - !CPlatformConfigForSqueak commentStamp: 'tty 6/22/2014 15:22' prior: 0! A CPlatformConfigForSqueak acts as a compatability layer for Squeak and an Abstract Base Class for extended functionality required for the Squeak CMakeVMMaker use-case. I make (very) heavy use of a specific design pattern for configuring myself and remaining compatible with pharo's CMakeVMMaker. The entry point for that pattern is my method 'configureForBuildType: aSymbol' . Each method send in there detects my buildType and routes the send to the approriate method for that buildType. Subclasses of me 'must' configure themselves for each build type per that pattern. However this can be very easy by just returning the base configuration. Tests are written to verify that this support infrastructure is in place. I have two important variables. excludeFromBuild and isAbstractBaseClass. excludeFromBuild is used to exclude a configuration from being built by a Builder. is used to exclude a configuration from Testing. isAbstractBaseClass is a class instance variable used by configurations that exclude themselves from being built by a Builder BUT need to be included in Testing. excludeFromBuild | isAbstractBaseClass | should build | should test T T NO YES T F NO NO F T YES YES F F YES YES The use-case is as follows. An abstract base class contains a lot of functionality that must be implemented and tested for the system to work, but it is not meant to be compiled. concrete classes of that AbstractBase class can exclude themselves from being built by builders and by doing so are not tested. However, once a concrete configuration is enabled to be built, it must pass all tests. Linux32x86Config is an example of an AbstractBase class that must pass all testing, but is not buildable. Its subclass Linux32x86SqueakCogV3Config needs testing, but a developer can toggle 'exclude from build' to hide it from Builders or make it available to them. + Tests make the decision on what configurations to test. Here are some examples. + (o excludeFromBuild not) & (configuration isAbstractBaseClass not) this is a concrete [Lang][VM][MemoryManager][etc] configuration that will be built. No platform classes considered + (o excludeFromBuild) & (configuration isAbstractBaseClass not) This is a concrete [Lang][VM][MemoryManager][etc] configuration that will be NOT built. + (o excludeFromBuild not) | (configuration isAbstractBaseClass) concrete implementation may depend on its [OS][VMWordSize][Processor] AbstractBaseClass for platform level methods. + example: Linux32x86Config ccBuild has the '-m32' compiler flag that is common to all builds on that platform + (o excludeFromBuild not) & (configuration isAbstractBaseClass) Not allowed. [OS][VMWordSize][Processor] AbstractBaseClasses should not be built. This is a useful test in its own right. + (o excludeFromBuild) & (configuration isAbstractBaseClass) These are the AbstractBaseClasses. An AbstractBaseClass should always be excluded from a build - - tty.! CPlatformConfigForSqueak class instanceVariableNames: 'isAbstractBaseClass'! Item was changed: + ----- Method: CPlatformConfigForSqueak>>cC (in category 'cmake buildType redirects') ----- - ----- Method: CPlatformConfigForSqueak>>cC (in category 'gnu build system mvm file') ----- cC "Route this message send to the message appropriate for my buildType " |d | d:= SqueakCMakeVMMakerAbstractBuilder default buildTypeAndDirectoryInfo copy. d at: #build put: [self cCBuild]; at: #buildAssert put: [self cCBuildAssert]; at: #buildAssertITimerHeartbeat put: [self cCBuildAssertITimerHeartbeat]; at:#buildDebug put: [self cCBuildDebug]; at: #buildDebugITimerHeartbeat put: [self cCBuildDebugITimerHeartbeat ]; at: #buildITimerHeartbeat put: [self cCBuildITimerHeartbeat]; at: #buildMultiThreaded put: [self cCBuildMultiThreaded]; at: #buildMultiThreadedAssert put: [self cCBuildMultiThreadedAssert]; at: #buildMultiThreadedDebug put: [self cCBuildMultiThreadedDebug ]; at: #buildNone put:[self cCNoBuildType]. ^(d at: buildType) value! Item was changed: + ----- Method: CPlatformConfigForSqueak>>cFlags (in category 'cmake buildType redirects') ----- - ----- Method: CPlatformConfigForSqueak>>cFlags (in category 'gnu build system mvm file') ----- cFlags "Route this message send to the message appropriate for my buildType " |d | self flag:'tty'. "this should be replaced by cC cXX lDFlags libs " d:= SqueakCMakeVMMakerAbstractBuilder default buildTypeAndDirectoryInfo copy. d at: #build put: [self cFlagsBuild]; at: #buildAssert put: [self cFlagsBuildAssert]; at: #buildAssertITimerHeartbeat put: [self cFlagsBuildAssertITimerHeartbeat]; at:#buildDebug put: [self cFlagsBuildDebug]; at: #buildDebugITimerHeartbeat put: [self cFlagsBuildDebugITimerHeartbeat ]; at: #buildITimerHeartbeat put: [self cFlagsBuildITimerHeartbeat]; at: #buildMultiThreaded put: [self cFlagsBuildMultiThreaded]; at: #buildMultiThreadedAssert put: [self cFlagsBuildMultiThreadedAssert]; at: #buildMultiThreadedDebug put: [self cFlagsBuildMultiThreadedDebug ]; at: #buildNone put:[self cFlagsNoBuildType]. ^(d at: buildType) value! Item was changed: + ----- Method: CPlatformConfigForSqueak>>cXX (in category 'cmake buildType redirects') ----- - ----- Method: CPlatformConfigForSqueak>>cXX (in category 'gnu build system mvm file') ----- cXX "Route this message send to the message appropriate for my buildType " |d | d:= SqueakCMakeVMMakerAbstractBuilder default buildTypeAndDirectoryInfo copy. d at: #build put: [self cXXBuild]; at: #buildAssert put: [self cXXBuildAssert]; at: #buildAssertITimerHeartbeat put: [self cXXBuildAssertITimerHeartbeat]; at:#buildDebug put: [self cXXBuildDebug]; at: #buildDebugITimerHeartbeat put: [self cXXBuildDebugITimerHeartbeat ]; at: #buildITimerHeartbeat put: [self cXXBuildITimerHeartbeat]; at: #buildMultiThreaded put: [self cXXBuildMultiThreaded]; at: #buildMultiThreadedAssert put: [self cXXBuildMultiThreadedAssert]; at: #buildMultiThreadedDebug put: [self cXXBuildMultiThreadedDebug ]; at: #buildNone put:[self cXXNoBuildType]. ^(d at: buildType) value ! Item was added: + ----- Method: CPlatformConfigForSqueak>>cXXBuild (in category 'cmake buildType redirects') ----- + cXXBuild + "example: + ^{ 'g++ -m32'}" + self subclassResponsibility! Item was added: + ----- Method: CPlatformConfigForSqueak>>cXXBuildAssert (in category 'cmake buildType redirects') ----- + cXXBuildAssert + self subclassResponsibility! Item was added: + ----- Method: CPlatformConfigForSqueak>>cXXBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + cXXBuildAssertITimerHeartbeat + self subclassResponsibility! Item was added: + ----- Method: CPlatformConfigForSqueak>>cXXBuildDebug (in category 'cmake buildType redirects') ----- + cXXBuildDebug + self subclassResponsibility! Item was added: + ----- Method: CPlatformConfigForSqueak>>cXXBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + cXXBuildDebugITimerHeartbeat + self subclassResponsibility! Item was added: + ----- Method: CPlatformConfigForSqueak>>cXXBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + cXXBuildITimerHeartbeat + self subclassResponsibility! Item was added: + ----- Method: CPlatformConfigForSqueak>>cXXBuildMultiThreaded (in category 'cmake buildType redirects') ----- + cXXBuildMultiThreaded + self subclassResponsibility! Item was added: + ----- Method: CPlatformConfigForSqueak>>cXXBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + cXXBuildMultiThreadedAssert + self subclassResponsibility! Item was added: + ----- Method: CPlatformConfigForSqueak>>cXXBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + cXXBuildMultiThreadedDebug + self subclassResponsibility! Item was added: + ----- Method: CPlatformConfigForSqueak>>cXXNoBuildType (in category 'cmake buildType redirects') ----- + cXXNoBuildType + "SHOULD NOT GET HERE" + self shouldNotImplement. + ! Item was changed: + ----- Method: CPlatformConfigForSqueak>>compilerFlags (in category 'cmake buildType redirects') ----- - ----- Method: CPlatformConfigForSqueak>>compilerFlags (in category 'gnu build system mvm file') ----- compilerFlags + "compilerFlags routes to cFlagsXYZ in Squeak implementation. + This represents the CFLAGS line in the GNU system's mvm file that reads like CFLAGS=''$OPT -msse2 -D_GNU_SOURCE..'' " - "Route this message send to the message appropriate for my buildType " |d | + self flag:'tty'. "figure out what from cC, cXX, lDFlags, libs to pipe into here once system is functioning" d:= SqueakCMakeVMMakerAbstractBuilder default buildTypeAndDirectoryInfo copy. + d + at: #build put: [self cFlagsBuild]; + at: #buildAssert put: [self cFlagsBuildAssert]; + at: #buildAssertITimerHeartbeat put: [self cFlagsBuildAssertITimerHeartbeat]; + at:#buildDebug put: [self cFlagsBuildDebug]; + at: #buildDebugITimerHeartbeat put: [self cFlagsBuildDebugITimerHeartbeat ]; + at: #buildITimerHeartbeat put: [self cFlagsBuildITimerHeartbeat]; + at: #buildMultiThreaded put: [self cFlagsBuildMultiThreaded]; + at: #buildMultiThreadedAssert put: [self cFlagsBuildMultiThreadedAssert]; + at: #buildMultiThreadedDebug put: [self cFlagsBuildMultiThreadedDebug ]; + at: #buildNone put:[self cFlagsNoBuildType]. + ^(d at: buildType) value + ! - d - at: #build put: [self compilerFlagsBuild]; - at: #buildAssert put: [self compilerFlagsBuildAssert]; - at: #buildAssertITimerHeartbeat put: [self compilerFlagsBuildAssertITimerHeartbeat]; - at:#buildDebug put: [self compilerFlagsBuildDebug]; - at: #buildDebugITimerHeartbeat put: [self compilerFlagsBuildDebugITimerHeartbeat ]; - at: #buildITimerHeartbeat put: [self compilerFlagsBuildITimerHeartbeat]; - at: #buildMultiThreaded put: [self compilerFlagsBuildMultiThreaded]; - at: #buildMultiThreadedAssert put: [self compilerFlagsBuildMultiThreadedAssert]; - at: #buildMultiThreadedDebug put: [self compilerFlagsBuildMultiThreadedDebug ]; - at: #buildNone put:[self compilerFlagsNoBuildType]. - ^(d at: buildType) value! Item was removed: - ----- Method: CPlatformConfigForSqueak>>compilerFlagsBuild (in category 'cmake buildType redirects') ----- - compilerFlagsBuild - "backwards compatability with pharo. If adding, override compilerFlagsRelease in your configuration. - ^self compilerFlagsRelease." - - self subclassResponsibility! Item was removed: - ----- Method: CPlatformConfigForSqueak>>compilerFlagsBuildAssert (in category 'cmake buildType redirects') ----- - compilerFlagsBuildAssert - self subclassResponsibility! Item was removed: - ----- Method: CPlatformConfigForSqueak>>compilerFlagsBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- - compilerFlagsBuildAssertITimerHeartbeat - self subclassResponsibility! Item was removed: - ----- Method: CPlatformConfigForSqueak>>compilerFlagsBuildDebug (in category 'cmake buildType redirects') ----- - compilerFlagsBuildDebug - self subclassResponsibility! Item was removed: - ----- Method: CPlatformConfigForSqueak>>compilerFlagsBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- - compilerFlagsBuildDebugITimerHeartbeat - self subclassResponsibility! Item was removed: - ----- Method: CPlatformConfigForSqueak>>compilerFlagsBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- - compilerFlagsBuildITimerHeartbeat - self subclassResponsibility! Item was removed: - ----- Method: CPlatformConfigForSqueak>>compilerFlagsBuildMultiThreaded (in category 'cmake buildType redirects') ----- - compilerFlagsBuildMultiThreaded - self subclassResponsibility! Item was removed: - ----- Method: CPlatformConfigForSqueak>>compilerFlagsBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- - compilerFlagsBuildMultiThreadedAssert - self subclassResponsibility! Item was removed: - ----- Method: CPlatformConfigForSqueak>>compilerFlagsBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- - compilerFlagsBuildMultiThreadedDebug - self subclassResponsibility! Item was removed: - ----- Method: CPlatformConfigForSqueak>>compilerFlagsNoBuildType (in category 'cmake buildType redirects') ----- - compilerFlagsNoBuildType - self shouldNotImplement.! Item was removed: - ----- Method: CPlatformConfigForSqueak>>configureFlagsBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- - configureFlagsBuildMultiThreadedDebug - "flags to feed to a configure command in GNU - configure --without-npsqueak --with-src=stacksrc --with-plugins=src/plugins --disable-cogi --without-vm-display-fbdev --x-libraries=/usr/lib --without-gl - - ^{ - '-without-npsqueak' - . '--with-src=stacksrc' - . '--with-plugins=src/plugins' - . '--disable-cogit' - . '--without-vm-display-fbdev' - . '--x-libraries=/usr/lib' - . '--without-gl' - } - - ^self configureFlagsBuild - " - - - self subclassResponsibility! Item was changed: ----- Method: CPlatformConfigForSqueak>>configureForBuildType: (in category 'cmake configuration') ----- configureForBuildType: aSymbol "Set my internal state appropriate for my build type". + self subclassResponsibility. - self configureNoBuildType. "reset all internal flags" - buildType:= aSymbol. "error checking was handled previously" - self - preferredIncludes; - standardIncludes; - configureFlags; ".configure --without-npsqueak --with-src=stacksrc --with-plugins=src/plugins --disable-cogi --without-vm-display-fbdev --x-libraries=/usr/lib --without-gl " - cC; " CC=''gcc -m32 -v''" - cXX; "CXX=''g++ -m32'" - lDFlags; " LDFLAGS=-Wl,-z,now" - libs; " LIBS=''-lpthread -luuid''" - internalPlugins; - externalPlugins. - - - ! Item was changed: + ----- Method: CPlatformConfigForSqueak>>lDFlags (in category 'cmake buildType redirects') ----- - ----- Method: CPlatformConfigForSqueak>>lDFlags (in category 'gnu build system mvm file') ----- lDFlags "Route this message send to the message appropriate for my buildType " |d | d:= SqueakCMakeVMMakerAbstractBuilder default buildTypeAndDirectoryInfo copy. d at: #build put: [self lDFlagsBuild]; at: #buildAssert put: [self lDFlagsBuildAssert]; at: #buildAssertITimerHeartbeat put: [self lDFlagsBuildAssertITimerHeartbeat]; at:#buildDebug put: [self lDFlagsBuildDebug]; at: #buildDebugITimerHeartbeat put: [self lDFlagsBuildDebugITimerHeartbeat ]; at: #buildITimerHeartbeat put: [self lDFlagsBuildITimerHeartbeat]; at: #buildMultiThreaded put: [self lDFlagsBuildMultiThreaded]; at: #buildMultiThreadedAssert put: [self lDFlagsBuildMultiThreadedAssert]; at: #buildMultiThreadedDebug put: [self lDFlagsBuildMultiThreadedDebug ]; at: #buildNone put:[self lDFlagsNoBuildType]. ^(d at: buildType) value ! Item was added: + ----- Method: CPlatformConfigForSqueak>>setGlobalOptionsBuildAssert: (in category 'cmake buildType redirects') ----- + setGlobalOptionsBuildAssert: aMaker + "convenience method to customize for this build type. + + SystemNavigation default browseMethodsWhoseNamesContain: 'setGlobalOptions' + + usually do nothing" + + self subclassResponsibility! Item was changed: ----- Method: CPlatformConfigForSqueak>>standardIncludesBuild (in category 'cmake buildType redirects') ----- + standardIncludesBuild - standardIncludesBuild - "convencience method to customize for this build. - - SystemNavigation default browseMethodsWhoseNamesContain: 'standardIncludes' - - Answer array of strings with relative paths to include files (appropriate for this platform?) - For eexample, SerialPlugin lives in several places. - - Cog/src/plugins/SerialPlugin - Cog/platforms/Mac OS/plugins/SerialPlugin - Cog/platforms/win32/plugins/SerialPlugin - Cog/platforms/unix/plugins/SerialPlugin - Cog/platforms/iOS/vm/src/vm/intplugins/SerialPlugin - .Cog/platforms/Cross/plugins/SerialPlugin - - ^ #( - '${crossDir}/plugins/SerialPlugin' - ... - ) - " self subclassResponsibility! Item was changed: ----- Method: CPlatformConfigForSqueak>>standardIncludesBuildAssert (in category 'cmake buildType redirects') ----- standardIncludesBuildAssert - "convencience method to customize for this build. - - SystemNavigation default browseMethodsWhoseNamesContain: 'standardIncludes' - - ^ #( - '${crossDir}/plugins/SerialPlugin' - ... - ) - - ^self standardIncludesBuild - " self subclassResponsibility! Item was changed: ----- Method: CPlatformConfigForSqueak>>standardIncludesBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- standardIncludesBuildAssertITimerHeartbeat - "convencience method to customize for this build. - - SystemNavigation default browseMethodsWhoseNamesContain: 'standardIncludes' - - ^ #( - '${crossDir}/plugins/SerialPlugin' - ... - ) - - ^self standardIncludesBuild - " self subclassResponsibility! Item was changed: ----- Method: CPlatformConfigForSqueak>>standardIncludesBuildDebug (in category 'cmake buildType redirects') ----- standardIncludesBuildDebug - "convencience method to customize for this build. - - SystemNavigation default browseMethodsWhoseNamesContain: 'standardIncludes' - - ^ #( - '${crossDir}/plugins/SerialPlugin' - ... - ) - - ^self standardIncludesBuild - " self subclassResponsibility! Item was added: + ----- Method: CPlatformConfigForSqueak>>standardIncludesBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebugITimerHeartbeat + self subclassResponsibility! Item was changed: ----- Method: CPlatformConfigForSqueak>>standardIncludesBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- standardIncludesBuildITimerHeartbeat - "convencience method to customize for this build. - - SystemNavigation default browseMethodsWhoseNamesContain: 'standardIncludes' - - ^ #( - '${crossDir}/plugins/SerialPlugin' - ... - ) - - ^self standardIncludesBuild - " self subclassResponsibility! Item was changed: ----- Method: CPlatformConfigForSqueak>>standardIncludesBuildMultiThreaded (in category 'cmake buildType redirects') ----- standardIncludesBuildMultiThreaded - "convencience method to customize for this build. - - SystemNavigation default browseMethodsWhoseNamesContain: 'standardIncludes' - - ^ #( - '${crossDir}/plugins/SerialPlugin' - ... - ) - - ^self standardIncludesBuild - " self subclassResponsibility! Item was changed: ----- Method: CPlatformConfigForSqueak>>standardIncludesBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedAssert - standardIncludesBuildMultiThreadedAssert - "convencience method to customize for this build. - - SystemNavigation default browseMethodsWhoseNamesContain: 'standardIncludes' - - ^ #( - '${crossDir}/plugins/SerialPlugin' - ... - ) - - ^self standardIncludesBuild - " self subclassResponsibility! Item was changed: ----- Method: CPlatformConfigForSqueak>>standardIncludesBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- standardIncludesBuildMultiThreadedDebug - "convencience method to customize for this build. - - SystemNavigation default browseMethodsWhoseNamesContain: 'standardIncludes' - - ^ #( - '${crossDir}/plugins/SerialPlugin' - ... - ) - - ^self standardIncludesBuild - " self subclassResponsibility! Item was removed: - ----- Method: Linux32ARMv6StackV3CrossRaspbianConfig>>preferredIncludes (in category 'source files') ----- - preferredIncludes - ^ #('${CMAKE_FIND_ROOT_PATH}/usr/include/' - '${targetPlatform}/plugins/B3DAcceleratorPlugin') - ! Item was added: + ----- Method: Linux32ARMv6StackV3CrossRaspbianConfig>>preferredIncludesBuild (in category 'source files') ----- + preferredIncludesBuild + ^ #('${CMAKE_FIND_ROOT_PATH}/usr/include/' + '${targetPlatform}/plugins/B3DAcceleratorPlugin') + ! Item was changed: ----- Method: Linux32x86Config>>availableBuildTypes (in category 'cmake configuration') ----- availableBuildTypes + ^SqueakCMakeVMMakerAbstractBuilder default allBuildTypes - ^SqueakCMakeVMMakerAbstractBuilder default noBuildTypes " subclasses should use ^super availableBuildTypes copyWithoutAll: #( #assertWithHeartbeatTimer #debugWithHeartbeatTimer debugMultiThreadedFFI.....etc)) " ! Item was added: + ----- Method: Linux32x86Config>>cCBuild (in category 'cmake buildType redirects') ----- + cCBuild + ^{ 'gcc -m32'}! Item was added: + ----- Method: Linux32x86Config>>cCBuildAssert (in category 'cmake buildType redirects') ----- + cCBuildAssert + ^self cCBuild! Item was added: + ----- Method: Linux32x86Config>>cCBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + cCBuildAssertITimerHeartbeat + ^self cCBuild! Item was added: + ----- Method: Linux32x86Config>>cCBuildDebug (in category 'cmake buildType redirects') ----- + cCBuildDebug + ^self cCBuild! Item was added: + ----- Method: Linux32x86Config>>cCBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + cCBuildDebugITimerHeartbeat + ^self cCBuild! Item was added: + ----- Method: Linux32x86Config>>cCBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + cCBuildITimerHeartbeat + ^self cCBuild! Item was added: + ----- Method: Linux32x86Config>>cCBuildMultiThreaded (in category 'cmake buildType redirects') ----- + cCBuildMultiThreaded + ^self cCBuild! Item was added: + ----- Method: Linux32x86Config>>cCBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + cCBuildMultiThreadedAssert + ^self cCBuild! Item was added: + ----- Method: Linux32x86Config>>cCBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + cCBuildMultiThreadedDebug + ^self cCBuild! Item was added: + ----- Method: Linux32x86Config>>cXXBuild (in category 'cmake buildType redirects') ----- + cXXBuild + ^{ 'g++ -m32'}! Item was added: + ----- Method: Linux32x86Config>>cXXBuildAssert (in category 'cmake buildType redirects') ----- + cXXBuildAssert + ^self cXXBuild! Item was added: + ----- Method: Linux32x86Config>>cXXBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + cXXBuildAssertITimerHeartbeat + ^self cXXBuild! Item was added: + ----- Method: Linux32x86Config>>cXXBuildDebug (in category 'cmake buildType redirects') ----- + cXXBuildDebug + ^self cXXBuild! Item was added: + ----- Method: Linux32x86Config>>cXXBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + cXXBuildDebugITimerHeartbeat + ^self cXXBuild! Item was added: + ----- Method: Linux32x86Config>>cXXBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + cXXBuildITimerHeartbeat + ^self cXXBuild! Item was added: + ----- Method: Linux32x86Config>>cXXBuildMultiThreaded (in category 'cmake buildType redirects') ----- + cXXBuildMultiThreaded + ^self cXXBuild! Item was added: + ----- Method: Linux32x86Config>>cXXBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + cXXBuildMultiThreadedAssert + ^self cXXBuild! Item was added: + ----- Method: Linux32x86Config>>cXXBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + cXXBuildMultiThreadedDebug + ^self cXXBuild! Item was added: + ----- Method: Linux32x86Config>>commonCompilerFlags (in category 'compiler flags') ----- + commonCompilerFlags + "avoid premature optimization. push this decision down lower if it is needed at all" + ^{'-m32'} + ! Item was added: + ----- Method: Linux32x86Config>>externalPluginsBuild (in category 'cmake buildType redirects') ----- + externalPluginsBuild + ^ externalPlugins ifNil: [ externalPlugins := self defaultExternalPlugins ]! Item was added: + ----- Method: Linux32x86Config>>externalPluginsBuildAssert (in category 'cmake buildType redirects') ----- + externalPluginsBuildAssert + ^ externalPlugins ifNil: [ externalPlugins := self defaultExternalPlugins ]! Item was added: + ----- Method: Linux32x86Config>>externalPluginsBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + externalPluginsBuildAssertITimerHeartbeat + ^ externalPlugins ifNil: [ externalPlugins := self defaultExternalPlugins ]! Item was added: + ----- Method: Linux32x86Config>>externalPluginsBuildDebug (in category 'cmake buildType redirects') ----- + externalPluginsBuildDebug + ^ externalPlugins ifNil: [ externalPlugins := self defaultExternalPlugins ]! Item was added: + ----- Method: Linux32x86Config>>externalPluginsBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + externalPluginsBuildDebugITimerHeartbeat + ^ externalPlugins ifNil: [ externalPlugins := self defaultExternalPlugins ]! Item was added: + ----- Method: Linux32x86Config>>externalPluginsBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + externalPluginsBuildITimerHeartbeat + ^ externalPlugins ifNil: [ externalPlugins := self defaultExternalPlugins ]! Item was added: + ----- Method: Linux32x86Config>>externalPluginsBuildMultiThreaded (in category 'cmake buildType redirects') ----- + externalPluginsBuildMultiThreaded + ^ externalPlugins ifNil: [ externalPlugins := self defaultExternalPlugins ]! Item was added: + ----- Method: Linux32x86Config>>externalPluginsBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + externalPluginsBuildMultiThreadedAssert + ^ externalPlugins ifNil: [ externalPlugins := self defaultExternalPlugins ]! Item was added: + ----- Method: Linux32x86Config>>externalPluginsBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + externalPluginsBuildMultiThreadedDebug + ^ externalPlugins ifNil: [ externalPlugins := self defaultExternalPlugins ]! Item was added: + ----- Method: Linux32x86Config>>internalPluginsBuild (in category 'cmake buildType redirects') ----- + internalPluginsBuild + ^ internalPlugins ifNil: [ internalPlugins := self defaultInternalPlugins ]! Item was added: + ----- Method: Linux32x86Config>>internalPluginsBuildAssert (in category 'cmake buildType redirects') ----- + internalPluginsBuildAssert + " internalPlugins := self defaultInternalPlugins" + ^self internalPluginsBuild! Item was added: + ----- Method: Linux32x86Config>>internalPluginsBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + internalPluginsBuildAssertITimerHeartbeat + " internalPlugins := self defaultInternalPlugins" + ^self internalPluginsBuild! Item was added: + ----- Method: Linux32x86Config>>internalPluginsBuildDebug (in category 'cmake buildType redirects') ----- + internalPluginsBuildDebug + " internalPlugins := self defaultInternalPlugins" + ^self internalPluginsBuild! Item was added: + ----- Method: Linux32x86Config>>internalPluginsBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + internalPluginsBuildDebugITimerHeartbeat + " internalPlugins := self defaultInternalPlugins" + ^self internalPluginsBuild! Item was added: + ----- Method: Linux32x86Config>>internalPluginsBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + internalPluginsBuildITimerHeartbeat + " internalPlugins := self defaultInternalPlugins" + ^self internalPluginsBuild! Item was added: + ----- Method: Linux32x86Config>>internalPluginsBuildMultiThreaded (in category 'cmake buildType redirects') ----- + internalPluginsBuildMultiThreaded + " internalPlugins := self defaultInternalPlugins" + ^self internalPluginsBuild! Item was added: + ----- Method: Linux32x86Config>>internalPluginsBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + internalPluginsBuildMultiThreadedAssert + " internalPlugins := self defaultInternalPlugins" + ^self internalPluginsBuild! Item was added: + ----- Method: Linux32x86Config>>internalPluginsBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + internalPluginsBuildMultiThreadedDebug + " internalPlugins := self defaultInternalPlugins" + ^self internalPluginsBuild! Item was added: + ----- Method: Linux32x86Config>>lDFlagsBuild (in category 'cmake buildType redirects') ----- + lDFlagsBuild + "Answer array of flags like the LDFLAGS=-Wl,-z,now line in the GNU system's mvm file cat Cog/build.linux32x86/squeak.cog.v3/build/mvm" + ^ { + '-Wl' + . '-z' + . 'now' + } + ! Item was added: + ----- Method: Linux32x86Config>>lDFlagsBuildAssert (in category 'cmake buildType redirects') ----- + lDFlagsBuildAssert + "Answer array of flags like the LDFLAGS=-Wl,-z,now line in the GNU system's mvm file cat Cog/build.linux32x86/squeak.cog.v3/build/mvm" + ^self lDFlagsBuild! Item was added: + ----- Method: Linux32x86Config>>lDFlagsBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + lDFlagsBuildAssertITimerHeartbeat + "Answer array of flags like the LDFLAGS=-Wl,-z,now line in the GNU system's mvm file cat Cog/build.linux32x86/squeak.cog.v3/build/mvm" + ^self lDFlagsBuild! Item was added: + ----- Method: Linux32x86Config>>lDFlagsBuildDebug (in category 'cmake buildType redirects') ----- + lDFlagsBuildDebug + "Answer array of flags like the LDFLAGS=-Wl,-z,now line in the GNU system's mvm file cat Cog/build.linux32x86/squeak.cog.v3/build/mvm" + ^self lDFlagsBuild! Item was added: + ----- Method: Linux32x86Config>>lDFlagsBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + lDFlagsBuildDebugITimerHeartbeat + "Answer array of flags like the LDFLAGS=-Wl,-z,now line in the GNU system's mvm file cat Cog/build.linux32x86/squeak.cog.v3/build/mvm" + ^self lDFlagsBuild! Item was added: + ----- Method: Linux32x86Config>>lDFlagsBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + lDFlagsBuildITimerHeartbeat + "Answer array of flags like the LDFLAGS=-Wl,-z,now line in the GNU system's mvm file cat Cog/build.linux32x86/squeak.cog.v3/build/mvm" + ^self lDFlagsBuild! Item was added: + ----- Method: Linux32x86Config>>lDFlagsBuildMultiThreaded (in category 'cmake buildType redirects') ----- + lDFlagsBuildMultiThreaded + "Answer array of flags like the LDFLAGS=-Wl,-z,now line in the GNU system's mvm file cat Cog/build.linux32x86/squeak.cog.v3/build/mvm" + ^self lDFlagsBuild! Item was added: + ----- Method: Linux32x86Config>>lDFlagsBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + lDFlagsBuildMultiThreadedAssert + "Answer array of flags like the LDFLAGS=-Wl,-z,now line in the GNU system's mvm file cat Cog/build.linux32x86/squeak.cog.v3/build/mvm" + ^self lDFlagsBuild! Item was added: + ----- Method: Linux32x86Config>>lDFlagsBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + lDFlagsBuildMultiThreadedDebug + "Answer array of flags like the LDFLAGS=-Wl,-z,now line in the GNU system's mvm file cat Cog/build.linux32x86/squeak.cog.v3/build/mvm" + ^self lDFlagsBuild! Item was added: + ----- Method: Linux32x86Config>>libsBuild (in category 'cmake buildType redirects') ----- + libsBuild + "Answer array of flags like the LIBS=''-lpthread -luuid'' line in the GNU system's mvm file + cat Cog/build.linux32x86/squeak.cog.v3/build/mvm SystemNavigation default browseMethodsWhoseNamesContain: 'libsBuild'" + ^ { + '-lpthread' + . '-luuid' + }! Item was added: + ----- Method: Linux32x86Config>>libsBuildAssert (in category 'cmake buildType redirects') ----- + libsBuildAssert + ^self libsBuild! Item was added: + ----- Method: Linux32x86Config>>libsBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + libsBuildAssertITimerHeartbeat + ^self libsBuild! Item was added: + ----- Method: Linux32x86Config>>libsBuildDebug (in category 'cmake buildType redirects') ----- + libsBuildDebug + ^self libsBuild! Item was added: + ----- Method: Linux32x86Config>>libsBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + libsBuildDebugITimerHeartbeat + ^self libsBuild! Item was added: + ----- Method: Linux32x86Config>>libsBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + libsBuildITimerHeartbeat + ^self libsBuild! Item was added: + ----- Method: Linux32x86Config>>libsBuildMultiThreaded (in category 'cmake buildType redirects') ----- + libsBuildMultiThreaded + ^self libsBuild! Item was added: + ----- Method: Linux32x86Config>>libsBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + libsBuildMultiThreadedAssert + ^self libsBuild! Item was added: + ----- Method: Linux32x86Config>>libsBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + libsBuildMultiThreadedDebug + ^self libsBuild! Item was removed: - ----- Method: Linux32x86Config>>linkFlags (in category 'accessing') ----- - linkFlags - " ^ super linkFlags , ' -luuid -lSM -lICE -ldl -lGL -lpthread -lm -lnsl -lX11'" - ^ super linkFlags , ' -luuid -lSM -lICE -ldl -lpthread -lm -lnsl -lX11' - - ! Item was removed: - ----- Method: Linux32x86Config>>preferredIncludes (in category 'source files') ----- - preferredIncludes - self flag:'tty'. "pharo does not support newspeak or sista., yet sets this in CogUnixConfig. Is this appropriate here? Revisit when coding newspeak etc" - ^ #( '${targetPlatform}/plugins/AioPlugin' - '${targetPlatform}/plugins/B3DAcceleratorPlugin' - '${targetPlatform}/plugins/DropPlugin' - '${targetPlatform}/plugins/FilePlugin' - '${targetPlatform}/plugins/HostWindowPlugin' - '${targetPlatform}/plugins/JPEGReadWriter2Plugin' - '${targetPlatform}/plugins/LocalePlugin' - '${targetPlatform}/plugins/Mpeg3Plugin' - '${targetPlatform}/plugins/PseudoTTYPlugin' - '${targetPlatform}/plugins/SerialPlugin' - '${targetPlatform}/plugins/SoundPlugin' - '${crossDir}/plugins/SoundGenerationPlugin' - '${targetPlatform}/plugins/SqueakSSL' - '${targetPlatform}/plugins/UnixOSProcessPlugin' - '${targetPlatform}/plugins/AsynchFilePlugin' - '${targetPlatform}/plugins/BochsIA32Plugin' - '${targetPlatform}/plugins/FileCopyPlugin' - '${targetPlatform}/plugins/FloatMathPlugin' - '${targetPlatform}/plugins/InternetConfigPlugin' - '${targetPlatform}/plugins/JoystickTabletPlugin' - '${targetPlatform}/plugins/MIDIPlugin' - '${targetPlatform}/plugins/PrintJobPlugin' - '${targetPlatform}/plugins/SecurityPlugin' - '${targetPlatform}/plugins/SocketPlugin' - '${targetPlatform}/plugins/SqueakFFIPrims' - '${targetPlatform}/plugins/UUIDPlugin' - '${targetPlatform}/plugins/XDisplayControlPlugin' - - ) - - - - - "SystemNavigation default browseMethodsWhoseNamesContain: 'preferredIncludes'" - ! Item was added: + ----- Method: Linux32x86Config>>preferredIncludesBuild (in category 'source files') ----- + preferredIncludesBuild + self flag:'tty'. "pharo does not support newspeak or sista., yet sets this in CogUnixConfig. Is this appropriate here? Revisit when coding newspeak etc" + ^ #( '${targetPlatform}/plugins/AioPlugin' + '${targetPlatform}/plugins/B3DAcceleratorPlugin' + '${targetPlatform}/plugins/DropPlugin' + '${targetPlatform}/plugins/FilePlugin' + '${targetPlatform}/plugins/HostWindowPlugin' + '${targetPlatform}/plugins/JPEGReadWriter2Plugin' + '${targetPlatform}/plugins/LocalePlugin' + '${targetPlatform}/plugins/Mpeg3Plugin' + '${targetPlatform}/plugins/PseudoTTYPlugin' + '${targetPlatform}/plugins/SerialPlugin' + '${targetPlatform}/plugins/SoundPlugin' + '${crossDir}/plugins/SoundGenerationPlugin' + '${targetPlatform}/plugins/SqueakSSL' + '${targetPlatform}/plugins/UnixOSProcessPlugin' + '${targetPlatform}/plugins/AsynchFilePlugin' + '${targetPlatform}/plugins/BochsIA32Plugin' + '${targetPlatform}/plugins/FileCopyPlugin' + '${targetPlatform}/plugins/FloatMathPlugin' + '${targetPlatform}/plugins/InternetConfigPlugin' + '${targetPlatform}/plugins/JoystickTabletPlugin' + '${targetPlatform}/plugins/MIDIPlugin' + '${targetPlatform}/plugins/PrintJobPlugin' + '${targetPlatform}/plugins/SecurityPlugin' + '${targetPlatform}/plugins/SocketPlugin' + '${targetPlatform}/plugins/SqueakFFIPrims' + '${targetPlatform}/plugins/UUIDPlugin' + '${targetPlatform}/plugins/XDisplayControlPlugin' + + ) + + + + + "SystemNavigation default browseMethodsWhoseNamesContain: 'preferredIncludes'" + + ! Item was added: + ----- Method: Linux32x86Config>>preferredIncludesBuildAssert (in category 'source files') ----- + preferredIncludesBuildAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux32x86Config>>preferredIncludesBuildAssertITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildAssertITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux32x86Config>>preferredIncludesBuildDebug (in category 'source files') ----- + preferredIncludesBuildDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux32x86Config>>preferredIncludesBuildDebugITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildDebugITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux32x86Config>>preferredIncludesBuildITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux32x86Config>>preferredIncludesBuildMultiThreaded (in category 'source files') ----- + preferredIncludesBuildMultiThreaded + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux32x86Config>>preferredIncludesBuildMultiThreadedAssert (in category 'source files') ----- + preferredIncludesBuildMultiThreadedAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux32x86Config>>preferredIncludesBuildMultiThreadedDebug (in category 'source files') ----- + preferredIncludesBuildMultiThreadedDebug + ^self preferredIncludesBuild + ! Item was removed: - ----- Method: Linux32x86Config>>setGlobalOptions: (in category 'utils') ----- - setGlobalOptions: maker - - maker set: 'CMAKE_C_COMPILER' to: '/usr/bin/gcc'. - maker set: 'CMAKE_CXX_COMPILER' to: '/usr/bin/g++'. - " maker set: 'CMAKE_LIBRARY_PATH ${CMAKE_LIBRARY_PATH}' to: ' /usr/lib/gcc/x86_64-slackware-linux/4.8.2/'. - set any CMake global options, before declaring a project in cmake file - - set(CMAKE_LIBRARY_PATH ${CMAKE_LIBRARY_PATH} /opt/local/lib) - SystemNavigation default browseMethodsWhoseNamesContain: 'setGlobalOptions:' - "! Item was added: + ----- Method: Linux32x86Config>>setGlobalOptionsBuild: (in category 'utils') ----- + setGlobalOptionsBuild: aMaker + + aMaker set: 'CMAKE_C_COMPILER' to: '/usr/bin/gcc'. + aMaker set: 'CMAKE_CXX_COMPILER' to: '/usr/bin/g++'. + ! Item was added: + ----- Method: Linux32x86Config>>setGlobalOptionsBuildAssert: (in category 'utils') ----- + setGlobalOptionsBuildAssert: aMaker + ^self setGlobalOptionsBuild: aMaker + ! Item was added: + ----- Method: Linux32x86Config>>setGlobalOptionsBuildAssertITimerHeartbeat: (in category 'utils') ----- + setGlobalOptionsBuildAssertITimerHeartbeat: aMaker + ^self setGlobalOptionsBuild: aMaker + ! Item was added: + ----- Method: Linux32x86Config>>setGlobalOptionsBuildDebug: (in category 'utils') ----- + setGlobalOptionsBuildDebug: aMaker + ^self setGlobalOptionsBuild: aMaker + ! Item was added: + ----- Method: Linux32x86Config>>setGlobalOptionsBuildDebugITimerHeartbeat: (in category 'utils') ----- + setGlobalOptionsBuildDebugITimerHeartbeat: aMaker + ^self setGlobalOptionsBuild: aMaker + ! Item was added: + ----- Method: Linux32x86Config>>setGlobalOptionsBuildITimerHeartbeat: (in category 'utils') ----- + setGlobalOptionsBuildITimerHeartbeat: aMaker + ^self setGlobalOptionsBuild: aMaker + ! Item was added: + ----- Method: Linux32x86Config>>setGlobalOptionsBuildMultiThreaded: (in category 'utils') ----- + setGlobalOptionsBuildMultiThreaded: aMaker + ^self setGlobalOptionsBuild: aMaker + ! Item was added: + ----- Method: Linux32x86Config>>setGlobalOptionsBuildMultiThreadedAssert: (in category 'utils') ----- + setGlobalOptionsBuildMultiThreadedAssert: aMaker + ^self setGlobalOptionsBuild: aMaker + ! Item was added: + ----- Method: Linux32x86Config>>setGlobalOptionsBuildMultiThreadedDebug: (in category 'utils') ----- + setGlobalOptionsBuildMultiThreadedDebug: aMaker + ^self setGlobalOptionsBuild: aMaker + ! Item was added: + ----- Method: Linux32x86Config>>standardIncludesBuild (in category 'source files') ----- + standardIncludesBuild + ^#()! Item was added: + ----- Method: Linux32x86Config>>standardIncludesBuildAssert (in category 'source files') ----- + standardIncludesBuildAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux32x86Config>>standardIncludesBuildAssertITimerHeartbeat (in category 'source files') ----- + standardIncludesBuildAssertITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux32x86Config>>standardIncludesBuildDebug (in category 'source files') ----- + standardIncludesBuildDebug + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux32x86Config>>standardIncludesBuildDebugITimerHeartbeat (in category 'source files') ----- + standardIncludesBuildDebugITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux32x86Config>>standardIncludesBuildITimerHeartbeat (in category 'source files') ----- + standardIncludesBuildITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux32x86Config>>standardIncludesBuildMultiThreaded (in category 'source files') ----- + standardIncludesBuildMultiThreaded + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux32x86Config>>standardIncludesBuildMultiThreadedAssert (in category 'source files') ----- + standardIncludesBuildMultiThreadedAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux32x86Config>>standardIncludesBuildMultiThreadedDebug (in category 'source files') ----- + standardIncludesBuildMultiThreadedDebug + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>cFlagsBuild (in category 'cmake buildType redirects') ----- + cFlagsBuild + "Some gcc versions (3.4*) create a broken VM using -O2, so try -O1 if you have problems" + ^'-g -O2 -DDEBUGVM=0 -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DNDEBUG '! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>cFlagsBuildAssert (in category 'cmake buildType redirects') ----- + cFlagsBuildAssert + ^'-g3 -O1 -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -DDEBUGVM=0 -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=0'! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>cFlagsBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + cFlagsBuildAssertITimerHeartbeat + ^'-g3 -O1 -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -DDEBUGVM=0 -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=0 -DITIMER_HEARTBEAT=1'! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>cFlagsBuildDebug (in category 'cmake buildType redirects') ----- + cFlagsBuildDebug + ^'-g3 -O0 -DDEBUGVM=1 -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=0'! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>cFlagsBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + cFlagsBuildDebugITimerHeartbeat + ^'-g3 -O0 -DDEBUGVM=1 -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=0 -DITIMER_HEARTBEAT=1 '! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>cFlagsBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + cFlagsBuildITimerHeartbeat + "Some gcc versions (3.4*) create a broken VM using -O2, so try -O1 if you have problems" + ^'-g -O2 -DNDEBUG -DDEBUGVM=0 -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=0 -DITIMER_HEARTBEAT=1 '! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>cFlagsBuildMultiThreaded (in category 'cmake buildType redirects') ----- + cFlagsBuildMultiThreaded + "Some gcc versions (3.4*) create a broken VM using -O2, so try -O1 if you have problems" + ^'-g -O2 -DNDEBUG -DDEBUGVM=0 -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=1'! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>cFlagsBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + cFlagsBuildMultiThreadedAssert + ^'-g3 -O1 -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -DDEBUGVM=0 -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=1'! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>cFlagsBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + cFlagsBuildMultiThreadedDebug + ^'-g3 -O0 -DDEBUGVM=1 -msse2 -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64 -DCOGMTVM=1'! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>configureFlagsBuild (in category 'cmake buildType redirects') ----- + configureFlagsBuild + ^{'-without-npsqueak' }! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>configureFlagsBuildAssert (in category 'cmake buildType redirects') ----- + configureFlagsBuildAssert + ^self configureFlagsBuild! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>configureFlagsBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + configureFlagsBuildAssertITimerHeartbeat + ^self configureFlagsBuild! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>configureFlagsBuildDebug (in category 'cmake buildType redirects') ----- + configureFlagsBuildDebug + ^self configureFlagsBuild! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>configureFlagsBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + configureFlagsBuildDebugITimerHeartbeat + ^self configureFlagsBuild! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>configureFlagsBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + configureFlagsBuildITimerHeartbeat + ^self configureFlagsBuild! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>configureFlagsBuildMultiThreaded (in category 'cmake buildType redirects') ----- + configureFlagsBuildMultiThreaded + ^self configureFlagsBuild! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>configureFlagsBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + configureFlagsBuildMultiThreadedAssert + ^self configureFlagsBuild! Item was added: + ----- Method: Linux32x86SqueakCogV3Config>>configureFlagsBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + configureFlagsBuildMultiThreadedDebug + ^self configureFlagsBuild! Item was changed: ----- Method: Linux64Config>>availableBuildTypes (in category 'cmake configuration') ----- availableBuildTypes + ^SqueakCMakeVMMakerAbstractBuilder default allBuildTypes - ^SqueakCMakeVMMakerAbstractBuilder default noBuildTypes " subclasses should use ^super availableBuildTypes copyWithoutAll: #( #assertWithHeartbeatTimer #debugWithHeartbeatTimer debugMultiThreadedFFI.....etc)) " ! Item was added: + ----- Method: Linux64Config>>preferredIncludesBuild (in category 'cmake buildType redirects') ----- + preferredIncludesBuild + "SystemNavigation default browseMethodsWhoseNamesContain: 'preferredIncludes'" + ^ #( ) + + + ! Item was added: + ----- Method: Linux64Config>>preferredIncludesBuildAssert (in category 'cmake buildType redirects') ----- + preferredIncludesBuildAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64Config>>preferredIncludesBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildAssertITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64Config>>preferredIncludesBuildDebug (in category 'cmake buildType redirects') ----- + preferredIncludesBuildDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64Config>>preferredIncludesBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildDebugITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64Config>>preferredIncludesBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64Config>>preferredIncludesBuildMultiThreaded (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreaded + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64Config>>preferredIncludesBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreadedAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64Config>>preferredIncludesBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreadedDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64Config>>standardIncludesBuild (in category 'cmake buildType redirects') ----- + standardIncludesBuild + ^#()! Item was added: + ----- Method: Linux64Config>>standardIncludesBuildAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux64Config>>standardIncludesBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildAssertITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux64Config>>standardIncludesBuildDebug (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebug + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux64Config>>standardIncludesBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebugITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux64Config>>standardIncludesBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux64Config>>standardIncludesBuildMultiThreaded (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreaded + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux64Config>>standardIncludesBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux64Config>>standardIncludesBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedDebug + ^ self standardIncludesBuild! Item was changed: ----- Method: Linux64x86w32BitConfig>>availableBuildTypes (in category 'cmake configuration') ----- availableBuildTypes + ^SqueakCMakeVMMakerAbstractBuilder default allBuildTypes - ^SqueakCMakeVMMakerAbstractBuilder default noBuildTypes " subclasses should use ^super availableBuildTypes copyWithoutAll: #( #assertWithHeartbeatTimer #debugWithHeartbeatTimer debugMultiThreadedFFI.....etc)) " ! Item was added: + ----- Method: Linux64x86w32BitConfig>>commonCompilerFlags (in category 'compiler flags') ----- + commonCompilerFlags + "avoid premature optimization. push this decision down lower if it is needed at all" + ^{'-m32'} + ! Item was removed: - ----- Method: Linux64x86w32BitConfig>>preferredIncludes (in category 'source files') ----- - preferredIncludes - self flag:'tty'. "pharo does not support newspeak or sista., yet sets this in CogUnixConfig. Is this appropriate here? Revisit when coding newspeak etc" - ^ #( '${targetPlatform}/plugins/AioPlugin' - '${targetPlatform}/plugins/B3DAcceleratorPlugin' - '${targetPlatform}/plugins/DropPlugin' - '${targetPlatform}/plugins/FilePlugin' - '${targetPlatform}/plugins/HostWindowPlugin' - '${targetPlatform}/plugins/JPEGReadWriter2Plugin' - '${targetPlatform}/plugins/LocalePlugin' - '${targetPlatform}/plugins/Mpeg3Plugin' - '${targetPlatform}/plugins/PseudoTTYPlugin' - '${targetPlatform}/plugins/SerialPlugin' - '${targetPlatform}/plugins/SoundPlugin' - '${crossDir}/plugins/SoundGenerationPlugin' - '${targetPlatform}/plugins/SqueakSSL' - '${targetPlatform}/plugins/UnixOSProcessPlugin' - '${targetPlatform}/plugins/AsynchFilePlugin' - '${targetPlatform}/plugins/BochsIA32Plugin' - '${targetPlatform}/plugins/FileCopyPlugin' - '${targetPlatform}/plugins/FloatMathPlugin' - '${targetPlatform}/plugins/InternetConfigPlugin' - '${targetPlatform}/plugins/JoystickTabletPlugin' - '${targetPlatform}/plugins/MIDIPlugin' - '${targetPlatform}/plugins/PrintJobPlugin' - '${targetPlatform}/plugins/SecurityPlugin' - '${crossDir}/plugins/SocketPlugin' - '${targetPlatform}/plugins/SqueakFFIPrims' - '${targetPlatform}/plugins/UUIDPlugin' - '${targetPlatform}/plugins/XDisplayControlPlugin' - - ) - - - - - "SystemNavigation default browseMethodsWhoseNamesContain: 'preferredIncludes'" - ! Item was added: + ----- Method: Linux64x86w32BitConfig>>preferredIncludesBuild (in category 'source files') ----- + preferredIncludesBuild + ^ #( '${targetPlatform}/plugins/AioPlugin' + '${targetPlatform}/plugins/B3DAcceleratorPlugin' + '${targetPlatform}/plugins/DropPlugin' + '${targetPlatform}/plugins/FilePlugin' + '${targetPlatform}/plugins/HostWindowPlugin' + '${targetPlatform}/plugins/JPEGReadWriter2Plugin' + '${targetPlatform}/plugins/LocalePlugin' + '${targetPlatform}/plugins/Mpeg3Plugin' + '${targetPlatform}/plugins/PseudoTTYPlugin' + '${targetPlatform}/plugins/SerialPlugin' + '${targetPlatform}/plugins/SoundPlugin' + '${crossDir}/plugins/SoundGenerationPlugin' + '${targetPlatform}/plugins/SqueakSSL' + '${targetPlatform}/plugins/UnixOSProcessPlugin' + '${targetPlatform}/plugins/AsynchFilePlugin' + '${targetPlatform}/plugins/BochsIA32Plugin' + '${targetPlatform}/plugins/FileCopyPlugin' + '${targetPlatform}/plugins/FloatMathPlugin' + '${targetPlatform}/plugins/InternetConfigPlugin' + '${targetPlatform}/plugins/JoystickTabletPlugin' + '${targetPlatform}/plugins/MIDIPlugin' + '${targetPlatform}/plugins/PrintJobPlugin' + '${targetPlatform}/plugins/SecurityPlugin' + '${crossDir}/plugins/SocketPlugin' + '${targetPlatform}/plugins/SqueakFFIPrims' + '${targetPlatform}/plugins/UUIDPlugin' + '${targetPlatform}/plugins/XDisplayControlPlugin' + + ) + + + + + "SystemNavigation default browseMethodsWhoseNamesContain: 'preferredIncludes'" + ! Item was added: + ----- Method: Linux64x86w32BitConfig>>preferredIncludesBuildAssert (in category 'source files') ----- + preferredIncludesBuildAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64x86w32BitConfig>>preferredIncludesBuildAssertITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildAssertITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64x86w32BitConfig>>preferredIncludesBuildDebug (in category 'source files') ----- + preferredIncludesBuildDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64x86w32BitConfig>>preferredIncludesBuildDebugITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildDebugITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64x86w32BitConfig>>preferredIncludesBuildITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64x86w32BitConfig>>preferredIncludesBuildMultiThreaded (in category 'source files') ----- + preferredIncludesBuildMultiThreaded + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64x86w32BitConfig>>preferredIncludesBuildMultiThreadedAssert (in category 'source files') ----- + preferredIncludesBuildMultiThreadedAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64x86w32BitConfig>>preferredIncludesBuildMultiThreadedDebug (in category 'source files') ----- + preferredIncludesBuildMultiThreadedDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: Linux64x86w32BitConfig>>standardIncludesBuild (in category 'cmake buildType redirects') ----- + standardIncludesBuild + ^#()! Item was added: + ----- Method: Linux64x86w32BitConfig>>standardIncludesBuildAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux64x86w32BitConfig>>standardIncludesBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildAssertITimerHeartbeat + ^self standardIncludesBuild + ! Item was added: + ----- Method: Linux64x86w32BitConfig>>standardIncludesBuildDebug (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebug + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux64x86w32BitConfig>>standardIncludesBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebugITimerHeartbeat + ^self standardIncludesBuild + ! Item was added: + ----- Method: Linux64x86w32BitConfig>>standardIncludesBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux64x86w32BitConfig>>standardIncludesBuildMultiThreaded (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreaded + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux64x86w32BitConfig>>standardIncludesBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: Linux64x86w32BitConfig>>standardIncludesBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedDebug + ^ self standardIncludesBuild! Item was changed: ----- Method: Linux64x86w32BitSqueakCogV3SlackwareConfig>>excludeFromBuild (in category 'cmake') ----- excludeFromBuild + ^true "build this configuration" - ^false "build this configuration" " ^true" ! Item was changed: ----- Method: Linux64x86w32BitSqueakCogV3SlackwareNoGLConfig>>excludeFromBuild (in category 'as yet unclassified') ----- excludeFromBuild "over-ride to exclude yourself from a build or not" + ^true! - ^false! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>preferredIncludesBuild (in category 'source files') ----- + preferredIncludesBuild + ^ #()! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>preferredIncludesBuildAssert (in category 'source files') ----- + preferredIncludesBuildAssert + ^ self preferredIncludesBuild! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>preferredIncludesBuildAssertITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildAssertITimerHeartbeat + ^ self preferredIncludesBuild! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>preferredIncludesBuildDebug (in category 'source files') ----- + preferredIncludesBuildDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>preferredIncludesBuildDebugITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildDebugITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>preferredIncludesBuildITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>preferredIncludesBuildMultiThreaded (in category 'source files') ----- + preferredIncludesBuildMultiThreaded + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>preferredIncludesBuildMultiThreadedAssert (in category 'source files') ----- + preferredIncludesBuildMultiThreadedAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>preferredIncludesBuildMultiThreadedDebug (in category 'source files') ----- + preferredIncludesBuildMultiThreadedDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>standardIncludesBuild (in category 'cmake buildType redirects') ----- + standardIncludesBuild + ^#()! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>standardIncludesBuildAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>standardIncludesBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildAssertITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>standardIncludesBuildDebug (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebug + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>standardIncludesBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebugITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>standardIncludesBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>standardIncludesBuildMultiThreaded (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreaded + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>standardIncludesBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakAndroidStackEvtConfig>>standardIncludesBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedDebug + ^ self standardIncludesBuild! Item was changed: ----- Method: SqueakBSDConfig>>availableBuildTypes (in category 'cmake configuration') ----- availableBuildTypes + ^SqueakCMakeVMMakerAbstractBuilder default allBuildTypes - ^SqueakCMakeVMMakerAbstractBuilder default noBuildTypes " subclasses should use ^super availableBuildTypes copyWithoutAll: #( #assertWithHeartbeatTimer #debugWithHeartbeatTimer debugMultiThreadedFFI.....etc)) " ! Item was added: + ----- Method: SqueakBSDConfig>>commonCompilerFlags (in category 'compiler flags') ----- + commonCompilerFlags + "avoid premature optimization. push this decision down lower if it is needed at all" + ^{'-m32'} + ! Item was added: + ----- Method: SqueakBSDConfig>>preferredIncludesBuild (in category 'cmake buildType redirects') ----- + preferredIncludesBuild + "SystemNavigation default browseMethodsWhoseNamesContain: 'preferredIncludes'" + ^ #( ) + + + ! Item was added: + ----- Method: SqueakBSDConfig>>preferredIncludesBuildAssert (in category 'cmake buildType redirects') ----- + preferredIncludesBuildAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakBSDConfig>>preferredIncludesBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildAssertITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakBSDConfig>>preferredIncludesBuildDebug (in category 'cmake buildType redirects') ----- + preferredIncludesBuildDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakBSDConfig>>preferredIncludesBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildDebugITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakBSDConfig>>preferredIncludesBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakBSDConfig>>preferredIncludesBuildMultiThreaded (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreaded + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakBSDConfig>>preferredIncludesBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreadedAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakBSDConfig>>preferredIncludesBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreadedDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakBSDConfig>>standardIncludesBuild (in category 'as yet unclassified') ----- + standardIncludesBuild + ^#()! Item was added: + ----- Method: SqueakBSDConfig>>standardIncludesBuildAssert (in category 'as yet unclassified') ----- + standardIncludesBuildAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakBSDConfig>>standardIncludesBuildAssertITimerHeartbeat (in category 'as yet unclassified') ----- + standardIncludesBuildAssertITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakBSDConfig>>standardIncludesBuildDebug (in category 'as yet unclassified') ----- + standardIncludesBuildDebug + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakBSDConfig>>standardIncludesBuildDebugITimerHeartbeat (in category 'as yet unclassified') ----- + standardIncludesBuildDebugITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakBSDConfig>>standardIncludesBuildITimerHeartbeat (in category 'as yet unclassified') ----- + standardIncludesBuildITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakBSDConfig>>standardIncludesBuildMultiThreaded (in category 'as yet unclassified') ----- + standardIncludesBuildMultiThreaded + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakBSDConfig>>standardIncludesBuildMultiThreadedAssert (in category 'as yet unclassified') ----- + standardIncludesBuildMultiThreadedAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakBSDConfig>>standardIncludesBuildMultiThreadedDebug (in category 'as yet unclassified') ----- + standardIncludesBuildMultiThreadedDebug + ^ self standardIncludesBuild! Item was removed: - ----- Method: SqueakCocoaIOSConfig>>preferredIncludes (in category 'source files') ----- - preferredIncludes - ^ #( - '${buildDir}/' - '${platformsDir}/iOS/vm/iPhone' "config.h is here. Why???" - ) - ! Item was added: + ----- Method: SqueakCocoaIOSConfig>>preferredIncludesBuild (in category 'source files') ----- + preferredIncludesBuild + ^ #( + '${buildDir}/' + '${platformsDir}/iOS/vm/iPhone' + ) + ! Item was added: + ----- Method: SqueakIA32BochsConfig>>preferredIncludesBuild (in category 'cmake buildType redirects') ----- + preferredIncludesBuild + "SystemNavigation default browseMethodsWhoseNamesContain: 'preferredIncludes'" + ^ #( ) + + + ! Item was added: + ----- Method: SqueakIA32BochsConfig>>preferredIncludesBuildAssert (in category 'cmake buildType redirects') ----- + preferredIncludesBuildAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIA32BochsConfig>>preferredIncludesBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildAssertITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIA32BochsConfig>>preferredIncludesBuildDebug (in category 'cmake buildType redirects') ----- + preferredIncludesBuildDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIA32BochsConfig>>preferredIncludesBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildDebugITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIA32BochsConfig>>preferredIncludesBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIA32BochsConfig>>preferredIncludesBuildMultiThreaded (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreaded + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIA32BochsConfig>>preferredIncludesBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreadedAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIA32BochsConfig>>preferredIncludesBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreadedDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIA32BochsConfig>>standardIncludesBuild (in category 'cmake buildType redirects') ----- + standardIncludesBuild + ^#()! Item was added: + ----- Method: SqueakIA32BochsConfig>>standardIncludesBuildAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakIA32BochsConfig>>standardIncludesBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildAssertITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakIA32BochsConfig>>standardIncludesBuildDebug (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebug + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakIA32BochsConfig>>standardIncludesBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebugITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakIA32BochsConfig>>standardIncludesBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakIA32BochsConfig>>standardIncludesBuildMultiThreaded (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreaded + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakIA32BochsConfig>>standardIncludesBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakIA32BochsConfig>>standardIncludesBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedDebug + ^ self standardIncludesBuild! Item was changed: ----- Method: SqueakIOSConfig>>availableBuildTypes (in category 'cmake configuration') ----- availableBuildTypes + ^SqueakCMakeVMMakerAbstractBuilder default allBuildTypes - ^SqueakCMakeVMMakerAbstractBuilder default noBuildTypes " subclasses should use ^super availableBuildTypes copyWithoutAll: #( #assertWithHeartbeatTimer #debugWithHeartbeatTimer debugMultiThreadedFFI.....etc)) " ! Item was added: + ----- Method: SqueakIOSConfig>>preferredIncludesBuild (in category 'source files') ----- + preferredIncludesBuild + "SystemNavigation default browseMethodsWhoseNamesContain: 'preferredIncludes'" + ^ #( ) + + + ! Item was added: + ----- Method: SqueakIOSConfig>>preferredIncludesBuildAssert (in category 'source files') ----- + preferredIncludesBuildAssert + ^ self preferredIncludesBuild! Item was added: + ----- Method: SqueakIOSConfig>>preferredIncludesBuildAssertITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildAssertITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIOSConfig>>preferredIncludesBuildDebug (in category 'source files') ----- + preferredIncludesBuildDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIOSConfig>>preferredIncludesBuildDebugITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildDebugITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIOSConfig>>preferredIncludesBuildITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIOSConfig>>preferredIncludesBuildMultiThreaded (in category 'source files') ----- + preferredIncludesBuildMultiThreaded + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIOSConfig>>preferredIncludesBuildMultiThreadedAssert (in category 'source files') ----- + preferredIncludesBuildMultiThreadedAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIOSConfig>>preferredIncludesBuildMultiThreadedDebug (in category 'source files') ----- + preferredIncludesBuildMultiThreadedDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakIOSConfig>>standardIncludesBuild (in category 'source files') ----- + standardIncludesBuild + ^ #( + '${crossDir}/plugins/SerialPlugin' + '${targetPlatform}/plugins/FilePlugin' + '${crossDir}/plugins/FilePlugin' + '${targetPlatform}/plugins/HostWindowPlugin' + '${platformsDir}/iOS/vm/iPhone/plugins/HostWindowPlugin' + '${crossDir}/plugins/HostWindowPlugin' + '${crossDir}/plugins/DropPlugin' + '${crossDir}/plugins/SocketPlugin' + '${crossDir}/plugins/SoundPlugin' + '${crossDir}/plugins/AsynchFilePlugin' + '${platformsDir}/unix/vm' + '${platformsDir}/iOS/plugins/SoundPlugin' + '${platformsDir}/iOS/vm/OSX/plugins/SoundPlugin' + '${platformsDir}/iOS/vm/Common/Classes' + '${platformsDir}/iOS/vm/OSX' + ) + ! Item was added: + ----- Method: SqueakIOSConfig>>standardIncludesBuildAssert (in category 'source files') ----- + standardIncludesBuildAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakIOSConfig>>standardIncludesBuildAssertITimerHeartbeat (in category 'source files') ----- + standardIncludesBuildAssertITimerHeartbeat + ^self standardIncludesBuild + ! Item was added: + ----- Method: SqueakIOSConfig>>standardIncludesBuildDebug (in category 'source files') ----- + standardIncludesBuildDebug + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakIOSConfig>>standardIncludesBuildDebugITimerHeartbeat (in category 'source files') ----- + standardIncludesBuildDebugITimerHeartbeat + ^self standardIncludesBuild + ! Item was added: + ----- Method: SqueakIOSConfig>>standardIncludesBuildITimerHeartbeat (in category 'source files') ----- + standardIncludesBuildITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakIOSConfig>>standardIncludesBuildMultiThreaded (in category 'source files') ----- + standardIncludesBuildMultiThreaded + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakIOSConfig>>standardIncludesBuildMultiThreadedAssert (in category 'source files') ----- + standardIncludesBuildMultiThreadedAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakIOSConfig>>standardIncludesBuildMultiThreadedDebug (in category 'source files') ----- + standardIncludesBuildMultiThreadedDebug + ^ self standardIncludesBuild! Item was changed: ----- Method: SqueakMacOSX32x86Config>>availableBuildTypes (in category 'cmake configuration') ----- availableBuildTypes + ^SqueakCMakeVMMakerAbstractBuilder default allBuildTypes - ^SqueakCMakeVMMakerAbstractBuilder default noBuildTypes " subclasses should use ^super availableBuildTypes copyWithoutAll: #( #assertWithHeartbeatTimer #debugWithHeartbeatTimer debugMultiThreadedFFI.....etc)) " ! Item was added: + ----- Method: SqueakMacOSX32x86Config>>preferredIncludesBuild (in category 'source files') ----- + preferredIncludesBuild + "SystemNavigation default browseMethodsWhoseNamesContain: 'preferredIncludes'" + ^ #( ) + + + ! Item was added: + ----- Method: SqueakMacOSX32x86Config>>preferredIncludesBuildAssert (in category 'source files') ----- + preferredIncludesBuildAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSX32x86Config>>preferredIncludesBuildAssertITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildAssertITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSX32x86Config>>preferredIncludesBuildDebug (in category 'source files') ----- + preferredIncludesBuildDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSX32x86Config>>preferredIncludesBuildDebugITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildDebugITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSX32x86Config>>preferredIncludesBuildITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSX32x86Config>>preferredIncludesBuildMultiThreaded (in category 'source files') ----- + preferredIncludesBuildMultiThreaded + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSX32x86Config>>preferredIncludesBuildMultiThreadedAssert (in category 'source files') ----- + preferredIncludesBuildMultiThreadedAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSX32x86Config>>preferredIncludesBuildMultiThreadedDebug (in category 'source files') ----- + preferredIncludesBuildMultiThreadedDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSX32x86Config>>standardIncludesBuild (in category 'source files') ----- + standardIncludesBuild + ^ #( + '${crossDir}/plugins/SerialPlugin' + '${targetPlatform}/plugins/FilePlugin' + '${crossDir}/plugins/FilePlugin' + '${targetPlatform}/plugins/HostWindowPlugin' + '${platformsDir}/iOS/vm/iPhone/plugins/HostWindowPlugin' + '${crossDir}/plugins/HostWindowPlugin' + '${crossDir}/plugins/DropPlugin' + '${crossDir}/plugins/SocketPlugin' + '${crossDir}/plugins/SoundPlugin' + '${crossDir}/plugins/AsynchFilePlugin' + '${platformsDir}/unix/vm' + '${platformsDir}/iOS/plugins/SoundPlugin' + '${platformsDir}/iOS/vm/OSX/plugins/SoundPlugin' + '${platformsDir}/iOS/vm/Common/Classes' + '${platformsDir}/iOS/vm/OSX' + ) + ! Item was added: + ----- Method: SqueakMacOSX32x86Config>>standardIncludesBuildAssert (in category 'source files') ----- + standardIncludesBuildAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakMacOSX32x86Config>>standardIncludesBuildAssertITimerHeartbeat (in category 'source files') ----- + standardIncludesBuildAssertITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakMacOSX32x86Config>>standardIncludesBuildDebug (in category 'source files') ----- + standardIncludesBuildDebug + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakMacOSX32x86Config>>standardIncludesBuildDebugITimerHeartbeat (in category 'source files') ----- + standardIncludesBuildDebugITimerHeartbeat + ^self standardIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSX32x86Config>>standardIncludesBuildITimerHeartbeat (in category 'source files') ----- + standardIncludesBuildITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakMacOSX32x86Config>>standardIncludesBuildMultiThreaded (in category 'source files') ----- + standardIncludesBuildMultiThreaded + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakMacOSX32x86Config>>standardIncludesBuildMultiThreadedAssert (in category 'source files') ----- + standardIncludesBuildMultiThreadedAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakMacOSX32x86Config>>standardIncludesBuildMultiThreadedDebug (in category 'source files') ----- + standardIncludesBuildMultiThreadedDebug + ^ self standardIncludesBuild! Item was changed: ----- Method: SqueakMacOSXPowerPCConfig>>availableBuildTypes (in category 'cmake configuration') ----- availableBuildTypes + ^SqueakCMakeVMMakerAbstractBuilder default allBuildTypes - ^SqueakCMakeVMMakerAbstractBuilder default noBuildTypes " subclasses should use ^super availableBuildTypes copyWithoutAll: #( #assertWithHeartbeatTimer #debugWithHeartbeatTimer debugMultiThreadedFFI.....etc)) " ! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>preferredIncludesBuild (in category 'source files') ----- + preferredIncludesBuild + "SystemNavigation default browseMethodsWhoseNamesContain: 'preferredIncludes'" + ^ #( ) + + + ! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>preferredIncludesBuildAssert (in category 'source files') ----- + preferredIncludesBuildAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>preferredIncludesBuildAssertITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildAssertITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>preferredIncludesBuildDebug (in category 'source files') ----- + preferredIncludesBuildDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>preferredIncludesBuildDebugITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildDebugITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>preferredIncludesBuildITimerHeartbeat (in category 'source files') ----- + preferredIncludesBuildITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>preferredIncludesBuildMultiThreaded (in category 'source files') ----- + preferredIncludesBuildMultiThreaded + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>preferredIncludesBuildMultiThreadedAssert (in category 'source files') ----- + preferredIncludesBuildMultiThreadedAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>preferredIncludesBuildMultiThreadedDebug (in category 'source files') ----- + preferredIncludesBuildMultiThreadedDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>standardIncludesBuild (in category 'source files') ----- + standardIncludesBuild + ^ #( + '${crossDir}/plugins/SerialPlugin' + '${targetPlatform}/plugins/FilePlugin' + '${crossDir}/plugins/FilePlugin' + '${targetPlatform}/plugins/HostWindowPlugin' + '${platformsDir}/iOS/vm/iPhone/plugins/HostWindowPlugin' + '${crossDir}/plugins/HostWindowPlugin' + '${crossDir}/plugins/DropPlugin' + '${crossDir}/plugins/SocketPlugin' + '${crossDir}/plugins/SoundPlugin' + '${crossDir}/plugins/AsynchFilePlugin' + '${platformsDir}/unix/vm' + '${platformsDir}/iOS/plugins/SoundPlugin' + '${platformsDir}/iOS/vm/OSX/plugins/SoundPlugin' + '${platformsDir}/iOS/vm/Common/Classes' + '${platformsDir}/iOS/vm/OSX' + ) + ! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>standardIncludesBuildAssert (in category 'source files') ----- + standardIncludesBuildAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>standardIncludesBuildAssertITimerHeartbeat (in category 'source files') ----- + standardIncludesBuildAssertITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>standardIncludesBuildDebug (in category 'source files') ----- + standardIncludesBuildDebug + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>standardIncludesBuildDebugITimerHeartbeat (in category 'source files') ----- + standardIncludesBuildDebugITimerHeartbeat + ^self standardIncludesBuild + ! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>standardIncludesBuildITimerHeartbeat (in category 'source files') ----- + standardIncludesBuildITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>standardIncludesBuildMultiThreaded (in category 'source files') ----- + standardIncludesBuildMultiThreaded + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>standardIncludesBuildMultiThreadedAssert (in category 'source files') ----- + standardIncludesBuildMultiThreadedAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakMacOSXPowerPCConfig>>standardIncludesBuildMultiThreadedDebug (in category 'source files') ----- + standardIncludesBuildMultiThreadedDebug + ^ self standardIncludesBuild! Item was removed: - ----- Method: SqueakMacintoshConfig>>compilerFlags (in category 'compiler flags') ----- - compilerFlags - self subclassResponsibility! Item was added: + ----- Method: SqueakMacintoshConfig>>configureForBuildType: (in category 'cmake configuration') ----- + configureForBuildType: aSymbol + "Set my internal state appropriate for my build type". + self configureNoBuildType. "reset all internal flags" + buildType:= aSymbol. "error checking was handled previously" + self + preferredIncludes; + standardIncludes; + cC; " CC=''gcc -m32 -v''" + cXX; "CXX=''g++ -m32'" + lDFlags; " LDFLAGS=-Wl,-z,now" + libs; " LIBS=''-lpthread -luuid''" + internalPlugins; + externalPlugins. + + ! Item was changed: ----- Method: SqueakSunOS32x86Config>>availableBuildTypes (in category 'cmake configuration') ----- availableBuildTypes + ^SqueakCMakeVMMakerAbstractBuilder default allBuildTypes - ^SqueakCMakeVMMakerAbstractBuilder default noBuildTypes " subclasses should use ^super availableBuildTypes copyWithoutAll: #( #assertWithHeartbeatTimer #debugWithHeartbeatTimer debugMultiThreadedFFI.....etc)) " ! Item was added: + ----- Method: SqueakSunOS32x86Config>>preferredIncludesBuild (in category 'cmake buildType redirects') ----- + preferredIncludesBuild + "SystemNavigation default browseMethodsWhoseNamesContain: 'preferredIncludes'" + ^ #( ) + + + ! Item was added: + ----- Method: SqueakSunOS32x86Config>>preferredIncludesBuildAssert (in category 'cmake buildType redirects') ----- + preferredIncludesBuildAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakSunOS32x86Config>>preferredIncludesBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildAssertITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakSunOS32x86Config>>preferredIncludesBuildDebug (in category 'cmake buildType redirects') ----- + preferredIncludesBuildDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakSunOS32x86Config>>preferredIncludesBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildDebugITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakSunOS32x86Config>>preferredIncludesBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakSunOS32x86Config>>preferredIncludesBuildMultiThreaded (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreaded + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakSunOS32x86Config>>preferredIncludesBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreadedAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakSunOS32x86Config>>preferredIncludesBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreadedDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakSunOS32x86Config>>standardIncludesBuild (in category 'cmake buildType redirects') ----- + standardIncludesBuild + ^ #()! Item was added: + ----- Method: SqueakSunOS32x86Config>>standardIncludesBuildAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakSunOS32x86Config>>standardIncludesBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildAssertITimerHeartbeat + ^self standardIncludesBuild + ! Item was added: + ----- Method: SqueakSunOS32x86Config>>standardIncludesBuildDebug (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebug + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakSunOS32x86Config>>standardIncludesBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebugITimerHeartbeat + ^self standardIncludesBuild + ! Item was added: + ----- Method: SqueakSunOS32x86Config>>standardIncludesBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakSunOS32x86Config>>standardIncludesBuildMultiThreaded (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreaded + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakSunOS32x86Config>>standardIncludesBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakSunOS32x86Config>>standardIncludesBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedDebug + ^ self standardIncludesBuild! Item was changed: ----- Method: SqueakUnixConfig>>commonCompilerFlags (in category 'compiler flags') ----- commonCompilerFlags + "avoid premature optimization. push this decision down lower if it is needed at all" + ^{} - self flag:'tty'. "what can go here? I am leaning to suclassResponsibility." - ^#() + ! - "Common compiler flags - LSB_FIRST=1 means that target platform is little endian. - set it to 0 for big-endian platforms - - - - ^ { - '-DLSB_FIRST=1'. - '-DUSE_GLOBAL_STRUCT=0'. - '-DCOGMTVM=0'. - '-m32'. - '-DENABLE_FAST_BLT ' } - " ! Item was removed: - ----- Method: SqueakUnixConfig>>compilerFlags (in category 'compiler flags') ----- - compilerFlags - self subclassResponsibility! Item was added: + ----- Method: SqueakUnixConfig>>configureForBuildType: (in category 'cmake configuration') ----- + configureForBuildType: aSymbol + "Set my internal state appropriate for my build type". + self configureNoBuildType. "reset all internal flags" + buildType:= aSymbol. "error checking was handled previously" + self + preferredIncludes; + standardIncludes; + configureFlags; " configure --without-npsqueak --with-src=stacksrc --with-plugins=src/plugins --disable-cogi --without-vm-display-fbdev --x-libraries=/usr/lib --without-gl " + cC; " CC=''gcc -m32 -v''" + cXX; "CXX=''g++ -m32'" + lDFlags; " LDFLAGS=-Wl,-z,now" + libs; " LIBS=''-lpthread -luuid''" + internalPlugins; + externalPlugins. + + ! Item was changed: ----- Method: SqueakWin32x86Config>>availableBuildTypes (in category 'cmake configuration') ----- availableBuildTypes + ^SqueakCMakeVMMakerAbstractBuilder default allBuildTypes - ^SqueakCMakeVMMakerAbstractBuilder default noBuildTypes " subclasses should use ^super availableBuildTypes copyWithoutAll: #( #assertWithHeartbeatTimer #debugWithHeartbeatTimer debugMultiThreadedFFI.....etc)) " ! Item was added: + ----- Method: SqueakWin32x86Config>>preferredIncludesBuild (in category 'cmake buildType redirects') ----- + preferredIncludesBuild + "SystemNavigation default browseMethodsWhoseNamesContain: 'preferredIncludes'" + ^ #( ) + + + ! Item was added: + ----- Method: SqueakWin32x86Config>>preferredIncludesBuildAssert (in category 'cmake buildType redirects') ----- + preferredIncludesBuildAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakWin32x86Config>>preferredIncludesBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildAssertITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakWin32x86Config>>preferredIncludesBuildDebug (in category 'cmake buildType redirects') ----- + preferredIncludesBuildDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakWin32x86Config>>preferredIncludesBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildDebugITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakWin32x86Config>>preferredIncludesBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + preferredIncludesBuildITimerHeartbeat + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakWin32x86Config>>preferredIncludesBuildMultiThreaded (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreaded + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakWin32x86Config>>preferredIncludesBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreadedAssert + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakWin32x86Config>>preferredIncludesBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + preferredIncludesBuildMultiThreadedDebug + ^self preferredIncludesBuild + ! Item was added: + ----- Method: SqueakWin32x86Config>>standardIncludesBuild (in category 'cmake buildType redirects') ----- + standardIncludesBuild + "SqueakMacintoshConfig browse + Not sure what this means on unix or windows" + ^#()! Item was added: + ----- Method: SqueakWin32x86Config>>standardIncludesBuildAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakWin32x86Config>>standardIncludesBuildAssertITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildAssertITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakWin32x86Config>>standardIncludesBuildDebug (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebug + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakWin32x86Config>>standardIncludesBuildDebugITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildDebugITimerHeartbeat + ^self standardIncludesBuild + ! Item was added: + ----- Method: SqueakWin32x86Config>>standardIncludesBuildITimerHeartbeat (in category 'cmake buildType redirects') ----- + standardIncludesBuildITimerHeartbeat + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakWin32x86Config>>standardIncludesBuildMultiThreaded (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreaded + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakWin32x86Config>>standardIncludesBuildMultiThreadedAssert (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedAssert + ^ self standardIncludesBuild! Item was added: + ----- Method: SqueakWin32x86Config>>standardIncludesBuildMultiThreadedDebug (in category 'cmake buildType redirects') ----- + standardIncludesBuildMultiThreadedDebug + ^ self standardIncludesBuild! Item was removed: - ----- Method: SqueakWindowsConfig>>compilerFlags (in category 'compiler flags') ----- - compilerFlags - self subclassResponsibility! Item was added: + ----- Method: SqueakWindowsConfig>>configureForBuildType: (in category 'cmake configuration') ----- + configureForBuildType: aSymbol + "Set my internal state appropriate for my build type". + self configureNoBuildType. "reset all internal flags" + buildType:= aSymbol. "error checking was handled previously" + self + preferredIncludes; + standardIncludes; + " configureFlags; configure --without-npsqueak --with-src=stacksrc --with-plugins=src/plugins --disable-cogi --without-vm-display-fbdev --x-libraries=/usr/lib --without-gl " + cC; " CC=''gcc -m32 -v''" + cXX; "CXX=''g++ -m32'" + lDFlags; " LDFLAGS=-Wl,-z,now" + libs; " LIBS=''-lpthread -luuid''" + internalPlugins; + externalPlugins. + + ! Item was changed: + ----- Method: SqueakWindowsConfig>>platformName (in category 'accessing') ----- - ----- Method: SqueakWindowsConfig>>platformName (in category 'as yet unclassified') ----- platformName ^self win32PlatformName!

1 0

VM Maker: CMakeVMMakerSqueak-tty.74.mcz
by commits＠source.squeak.org 23 Jun '14

23 Jun '14

Timothy M uploaded a new version of CMakeVMMakerSqueak to project VM Maker: http://source.squeak.org/VMMaker/CMakeVMMakerSqueak-tty.74.mcz ==================== Summary ==================== Name: CMakeVMMakerSqueak-tty.74 Author: tty Time: 23 June 2014, 10:21:27.143 am UUID: a815a280-7336-43d4-afba-f2f1f87f1005 Ancestors: CMakeVMMakerSqueak-tty.73 changes subclassesDo to allSubclassesDo in the tests. Added a test to directly invoke the redirect methods. =============== Diff against CMakeVMMakerSqueak-tty.73 =============== Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testAvailableBuildTypes (in category 'as yet unclassified') ----- testAvailableBuildTypes "each concrete configuration must report what buildTypes it supports " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) "" ifTrue:[self assert:(o availableBuildTypes isKindOf: Collection)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testBuildDir (in category 'as yet unclassified') ----- testBuildDir "for each builder, make sure all its configurations provides availbale build directories " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. o excludeFromBuild not ifTrue:[self assert:(o buildDir isKindOf: FileDirectory)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testBuildDirName (in category 'as yet unclassified') ----- testBuildDirName "for each builder, make sure all its configurations provide a build directory name " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) "" ifTrue:[ self assert:(o buildDirName isString). self assert:(o buildDirName size > 0)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testBuildScript (in category 'as yet unclassified') ----- testBuildScript "for each builder, make sure all its configurations provide a build directory name " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) "" ifTrue:[ self assert:(o buildScript isString). self assert:(o buildScript size > 0)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testCogitClass (in category 'as yet unclassified') ----- testCogitClass "for each builder that does not exclude itself from builds, make sure it returns cogitClass " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. o excludeFromBuild not ifTrue:[self assert:(o cogitClass inheritsFrom: Cogit)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testCommonCompilerFlags (in category 'as yet unclassified') ----- testCommonCompilerFlags #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | configuration isAbstractBaseClass "*" ifFalse:[ o:= configuration new. self assert:(o commonCompilerFlags isKindOf: Collection)]]]. "* SqueakWin32x86Config browse the return array embeds 'self executableName' which does not exist in an AbstractBaseClass " ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testCoreSources (in category 'as yet unclassified') ----- testCoreSources #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | configuration isAbstractBaseClass not ifTrue:[ o:= configuration new. o excludeFromBuild not ifTrue:[self assert:(o coreSources isArray)]]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testCrossSources (in category 'as yet unclassified') ----- testCrossSources #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | configuration isAbstractBaseClass not ifTrue:[ o:= configuration new. (o excludeFromBuild not) ifTrue:[ self assert:(o crossSources isArray)]]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testDirBuildPlatform (in category 'as yet unclassified') ----- testDirBuildPlatform "for each builder, make sure all its configurations provide a dirSource " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. self assert:(o dirBuildPlatform isString)]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testDirSource (in category 'as yet unclassified') ----- testDirSource "for each builder, make sure all its configurations provide a dirSource " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | configuration isAbstractBaseClass not ifTrue:[ o:= configuration new. o excludeFromBuild not ifTrue:[self assert:(o dirSource isString)]]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testExcludeFromBuild (in category 'as yet unclassified') ----- testExcludeFromBuild "for each builder, make sure all its includes or excludes itself from a build " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. self assert:((o excludeFromBuild basicType) = #Boolean)]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testExectuableName (in category 'as yet unclassified') ----- testExectuableName "for each builder, make sure all its configurations provide an executableName " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) ifTrue:[self assert:(o executableName isString)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testExecutableType (in category 'as yet unclassified') ----- testExecutableType "for each builder, make sure all its configurations provide an executableName " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) ifTrue:[self assert:(o executableType isString)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testExternalsModuleDir (in category 'as yet unclassified') ----- testExternalsModuleDir #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. o excludeFromBuild not ifTrue:[self assert:(o externalModulesDir isString)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testExtraSources (in category 'as yet unclassified') ----- testExtraSources #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) ifTrue:[self assert:(o extraSources isString)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testInterpreterClass (in category 'as yet unclassified') ----- testInterpreterClass "for each builder that does not exclude itself from builds, make sure it returns an InterpreterClass " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. o excludeFromBuild not ifTrue:[ self assert:(o interpreterClass inheritsFrom: InterpreterPrimitives). self assert:(o interpreterClassBuild inheritsFrom: InterpreterPrimitives). self assert:(o interpreterClassBuildAssert inheritsFrom: InterpreterPrimitives). self assert:(o interpreterClassBuildAssertITimerHeartbeat inheritsFrom: InterpreterPrimitives). self assert:(o interpreterClassBuildDebug inheritsFrom: InterpreterPrimitives). self assert:(o interpreterClassBuildDebugITImerHeartbeat inheritsFrom: InterpreterPrimitives). self assert:(o interpreterClassBuildITimerHeartbeat inheritsFrom: InterpreterPrimitives). self assert:(o interpreterClassBuildITimerMultiThreaded inheritsFrom: InterpreterPrimitives). self assert:(o interpreterClassBuildITimerMultiThreadedAssert inheritsFrom: InterpreterPrimitives). self assert:(o interpreterClassBuildITimerMultiThreadedDebug inheritsFrom: InterpreterPrimitives)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testIsAbstractBaseClass (in category 'as yet unclassified') ----- testIsAbstractBaseClass #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | - subclassesDo:[:configuration | self assert:(configuration isAbstractBaseClass basicType = #Boolean)]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testOutputDir (in category 'as yet unclassified') ----- testOutputDir "for each builder, make sure all its configurations provide an outputDir " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) ifTrue:[self assert:(o outputDir isKindOf: FileDirectory)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testOutputDirName (in category 'as yet unclassified') ----- testOutputDirName "for each builder, make sure all its configurations provide a build directory name " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) "" ifTrue:[ self assert:(o outputDirName isString). self assert:(o outputDirName size > 0)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testPlatformSources (in category 'as yet unclassified') ----- testPlatformSources #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) | (configuration isAbstractBaseClass) ifTrue:[self assert:(o platformSources isArray)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testSrcDir (in category 'as yet unclassified') ----- testSrcDir "for each builder, make sure all its configurations provide a srcDir " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) | (configuration isAbstractBaseClass) ifTrue:[self assert:(o srcDir isKindOf: FileDirectory)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testTopDir (in category 'as yet unclassified') ----- testTopDir "for each builder, make sure all its configurations provide a topDir " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) | (configuration isAbstractBaseClass) ifTrue:[self assert:(o topDir isKindOf: FileDirectory)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testVersion (in category 'as yet unclassified') ----- testVersion #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) | (configuration isAbstractBaseClass) ifTrue:[self assert:(o version isString)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakCommonConfigTest>>testdirBuildLanguageVMMM (in category 'as yet unclassified') ----- testdirBuildLanguageVMMM "for each builder that does not exclude itself from builds, make sure it returns dirBUildLanguageVMMM " #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. o excludeFromBuild not ifTrue:[self assert:(o dirBuildLanguageVMMM isString)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakMacintoshConfigTest>>testCMakeMacros (in category 'as yet unclassified') ----- testCMakeMacros #( SqueakMacintoshConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) ifTrue:[self assert:(o cMakeMacros isString)]]] ! Item was removed: - ----- Method: CMakeVMMakerSqueakMacintoshConfigTest>>testCommonCompilerFlags (in category 'as yet unclassified') ----- - testCommonCompilerFlags - #( SqueakMacintoshConfig) - do:[:each | - (Smalltalk at:each) - subclassesDo:[:configuration | | o | - o:= configuration new. - (o excludeFromBuild not) |(configuration isAbstractBaseClass) - ifTrue:[ - self assert:(o commonCompilerFlags isArray). - " self assert:(o compilerFlagsAssert isArray). - self assert:(o compilerFlagsAssertITimerHeartbeat isArray). - self assert:(o compilerFlagsBuild isArray). - self assert:(o compilerFlagsDebug isArray). - self assert:(o compilerFlagsDebugITimerHeartbeat isArray). - self assert:(o compilerFlagsIHeartbeatTimer isArray). - self assert:(o compilerFlagsMultiThreaded isArray). - self assert:(o compilerFlagsMultiThreadedAssert isArray). - self assert:(o compilerFlagsMultiThreadedDebug isArray)."]]]! Item was changed: ----- Method: CMakeVMMakerSqueakMacintoshConfigTest>>testExecutableType (in category 'as yet unclassified') ----- testExecutableType #(#SqueakMacintoshConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) | (configuration isAbstractBaseClass) ifTrue:[self assert:(o executableType = 'MACOSX_BUNDLE')]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakMacintoshConfigTest>>testPlatformName (in category 'as yet unclassified') ----- testPlatformName #(#SqueakMacintoshConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) | (configuration isAbstractBaseClass) ifTrue:[self assert:(o platformName = 'Mac OS' )]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakMacintoshConfigTest>>testResourcesDir (in category 'as yet unclassified') ----- testResourcesDir self flag:'tty'. "I modified resourcesDir to 'assureExistence' from 'fullname'. if this causes problems, look into that" #(#SqueakMacintoshConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) | (configuration isAbstractBaseClass) ifTrue:[ self assert:(o resourcesDir isKindOf: FileDirectory)]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakMacintoshConfigTest>>testResourcesDirName (in category 'as yet unclassified') ----- testResourcesDirName #(#SqueakMacintoshConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) | (configuration isAbstractBaseClass) ifTrue:[self assert:(o resourcesDirName isString)]]] ! Item was added: + TestCase subclass: #CMakeVMMakerSqueakNoRedirectMethodsTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CMakeVMMakerSqueak-Tests'! + + !CMakeVMMakerSqueakNoRedirectMethodsTest commentStamp: 'tty 6/23/2014 10:19' prior: 0! + A CMakeVMMakerSqueakRedirectMethodsTest tests that all Concrete Configuration implement the abstract methods of form: + makes sure that all the redirect methods are implemented by calling them directly instead of through the redirect mechanism + " + x + |d | + d:= SqueakCMakeVMMakerAbstractBuilder default buildTypeAndDirectoryInfo copy. + d + at: #build put: [self xBuild]; + at: #buildAssert put: [self xBuildAssert]; + at: #buildAssertITimerHeartbeat put: [self xBuildAssertITimerHeartbeat]; + at:#buildDebug put: [self xBuildDebug]; + at: #buildDebugITimerHeartbeat put: [self xBuildDebugITimerHeartbeat ]; + at: #buildITimerHeartbeat put: [self xBuildITimerHeartbeat]; + at: #buildMultiThreaded put: [self xBuildMultiThreaded]; + at: #buildMultiThreadedAssert put: [self xBuildMultiThreadedAssert]; + at: #buildMultiThreadedDebug put: [self xBuildMultiThreadedDebug ]; + at: #buildNone put:[self xNoBuildType]. + ^(d at: buildType) value + + " + ! Item was added: + ----- Method: CMakeVMMakerSqueakNoRedirectMethodsTest>>testCommonCompilerFlags (in category 'as yet unclassified') ----- + testCommonCompilerFlags + " #(#SqueakWindowsConfig #SqueakUnixConfig #SqueakMacintoshConfig) + do:[:each | + (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | + o:= configuration new. + (o excludeFromBuild not) |(configuration isAbstractBaseClass) + ifTrue:[ + self assert:(o commonCompilerFlags isArray). + self assert:(o compilerFlagsAssert isArray). + self assert:(o compilerFlagsAssertITimerHeartbeat isArray). + self assert:(o compilerFlagsBuild isArray). + self assert:(o compilerFlagsDebug isArray). + self assert:(o compilerFlagsDebugITimerHeartbeat isArray). + self assert:(o compilerFlagsIHeartbeatTimer isArray). + self assert:(o compilerFlagsMultiThreaded isArray). + self assert:(o compilerFlagsMultiThreadedAssert isArray). + self assert:(o compilerFlagsMultiThreadedDebug isArray)]]]"! Item was added: + ----- Method: CMakeVMMakerSqueakNoRedirectMethodsTest>>testCompilerFlags (in category 'as yet unclassified') ----- + testCompilerFlags + #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig ) + do:[:each | + (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | + o:= configuration new. + (o excludeFromBuild not) + ifTrue:[ + self assert:(o compilerFlagsBuild isArray). + self assert:(o compilerFlagsBuildAssert isArray). + self assert:(o compilerFlagsBuildAssertITimerHeartbeat isArray). + self assert:(o compilerFlagsBuildDebug isArray). + self assert:(o compilerFlagsBuildDebugITimerHeartbeat isArray). + self assert:(o compilerFlagsBuildITimerHeartbeat isArray). + self assert:(o compilerFlagsBuildMultiThreaded isArray). + self assert:(o compilerFlagsBuildMultiThreadedAssert isArray). + self assert:(o compilerFlagsBuildMultiThreadedDebug isArray)]]] + + + + + + + + ! Item was added: + ----- Method: CMakeVMMakerSqueakNoRedirectMethodsTest>>testLinkFlags (in category 'as yet unclassified') ----- + testLinkFlags + #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig ) + do:[:each | + (Smalltalk at:each) + subclassesDo:[:configuration | | o | + o:= configuration new. + (o excludeFromBuild not) |(configuration isAbstractBaseClass) + ifTrue:[ + o:= configuration new. + (o excludeFromBuild not) + ifTrue:[]]]]! Item was added: + ----- Method: CMakeVMMakerSqueakRedirectMethodsTest>>testCommonCompilerFlags (in category 'as yet unclassified') ----- + testCommonCompilerFlags + " #(#SqueakWindowsConfig #SqueakUnixConfig #SqueakMacintoshConfig) + do:[:each | + (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | + o:= configuration new. + (o excludeFromBuild not) |(configuration isAbstractBaseClass) + ifTrue:[ + self assert:(o commonCompilerFlags isArray). + self assert:(o compilerFlagsAssert isArray). + self assert:(o compilerFlagsAssertITimerHeartbeat isArray). + self assert:(o compilerFlagsBuild isArray). + self assert:(o compilerFlagsDebug isArray). + self assert:(o compilerFlagsDebugITimerHeartbeat isArray). + self assert:(o compilerFlagsIHeartbeatTimer isArray). + self assert:(o compilerFlagsMultiThreaded isArray). + self assert:(o compilerFlagsMultiThreadedAssert isArray). + self assert:(o compilerFlagsMultiThreadedDebug isArray)]]]"! Item was changed: ----- Method: CMakeVMMakerSqueakRedirectMethodsTest>>testCompilerFlags (in category 'as yet unclassified') ----- testCompilerFlags + #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig ) + do:[:each | + (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | + o:= configuration new. + (o excludeFromBuild not) + ifTrue:[ - SqueakCMakeVMMakerAbstractBuilder - subclassesDo:[:builder | | o | - Smalltalk globals - allClassesDo:[:configuration | (configuration class category asString withoutQuoting startsWith: (builder configurationsCategory)) - ifTrue:[ - o:= configuration new. - (o excludeFromBuild not) - ifTrue:[ self assert:(o compilerFlagsBuild isArray). self assert:(o compilerFlagsBuildAssert isArray). self assert:(o compilerFlagsBuildAssertITimerHeartbeat isArray). self assert:(o compilerFlagsBuildDebug isArray). self assert:(o compilerFlagsBuildDebugITimerHeartbeat isArray). self assert:(o compilerFlagsBuildITimerHeartbeat isArray). self assert:(o compilerFlagsBuildMultiThreaded isArray). self assert:(o compilerFlagsBuildMultiThreadedAssert isArray). + self assert:(o compilerFlagsBuildMultiThreadedDebug isArray)]]] - self assert:(o compilerFlagsBuildMultiThreadedDebug isArray)]]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakRedirectMethodsTest>>testLinkFlags (in category 'as yet unclassified') ----- testLinkFlags + #(#SqueakMacintoshConfig #SqueakUnixConfig #SqueakWindowsConfig ) + do:[:each | + (Smalltalk at:each) + subclassesDo:[:configuration | | o | + o:= configuration new. + (o excludeFromBuild not) |(configuration isAbstractBaseClass) + ifTrue:[ + o:= configuration new. + (o excludeFromBuild not) + ifTrue:[]]]]! - "make sure each enabled Configuration returns from each buildType configuration correctly" - SqueakCMakeVMMakerAbstractBuilder reset. - SqueakCMakeVMMakerAbstractBuilder - subclassesDo:[:builder | - Smalltalk globals - allClassesDo:[:configuration | (configuration class category asString withoutQuoting startsWith: (builder configurationsCategory)) - ifTrue:[ ]]] - - - - - - - - - - ! Item was removed: - ----- Method: CMakeVMMakerSqueakUnixConfigTest>>testCommonCompilerFlags (in category 'as yet unclassified') ----- - testCommonCompilerFlags - #( SqueakUnixConfig) - do:[:each | - (Smalltalk at:each) - subclassesDo:[:configuration | | o | - o:= configuration new. - (o excludeFromBuild not) |(configuration isAbstractBaseClass) - ifTrue:[ - self assert:(o commonCompilerFlags isArray). - " self assert:(o compilerFlagsAssert isArray). - self assert:(o compilerFlagsAssertITimerHeartbeat isArray). - self assert:(o compilerFlagsBuild isArray). - self assert:(o compilerFlagsDebug isArray). - self assert:(o compilerFlagsDebugITimerHeartbeat isArray). - self assert:(o compilerFlagsIHeartbeatTimer isArray). - self assert:(o compilerFlagsMultiThreaded isArray). - self assert:(o compilerFlagsMultiThreadedAssert isArray). - self assert:(o compilerFlagsMultiThreadedDebug isArray)."]]] - - - - - - - - ! Item was changed: ----- Method: CMakeVMMakerSqueakUnixConfigTest>>testConfigH (in category 'as yet unclassified') ----- testConfigH #( SqueakUnixConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) |(configuration isAbstractBaseClass not) ifTrue:[ o:= configuration new. (o excludeFromBuild not) ifTrue:[self assert:(o configH isString)]]]] ! Item was changed: ----- Method: CMakeVMMakerSqueakUnixConfigTest>>testExecutableType (in category 'as yet unclassified') ----- testExecutableType #( SqueakUnixConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) |(configuration isAbstractBaseClass not) ifTrue:[ o:= configuration new. self assert:(o executableType = '').]]] "hello code smell" ! Item was changed: ----- Method: CMakeVMMakerSqueakUnixConfigTest>>testPlatformName (in category 'as yet unclassified') ----- testPlatformName self flag:'tty'. "todo: fix code smell in hard coded string" #( SqueakUnixConfig) do:[:each | (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | - subclassesDo:[:configuration | | o | o:= configuration new. (o excludeFromBuild not) |(configuration isAbstractBaseClass not) ifTrue:[ o:= configuration new. (o excludeFromBuild not) ifTrue:[self assert:(o platformName = 'unix' )]]]] ! Item was removed: - ----- Method: CMakeVMMakerSqueakWindowsConfigTest>>testCommonCompilerFlags (in category 'as yet unclassified') ----- - testCommonCompilerFlags - "" - self flag:'tty'. "I need to differentiate this from the test in CommonConfigTests. Also, why is windows Array and others String?" - #(#SqueakWindowsConfig) - do:[:each | - (Smalltalk at:each) - subclassesDo:[:configuration | | o | - o:= configuration new. - (o excludeFromBuild not) |(configuration isAbstractBaseClass) - ifTrue:[ - self assert:(o commonCompilerFlags isArray). - " self assert:(o compilerFlagsAssert isArray). - self assert:(o compilerFlagsAssertITimerHeartbeat isArray). - self assert:(o compilerFlagsBuild isArray). - self assert:(o compilerFlagsDebug isArray). - self assert:(o compilerFlagsDebugITimerHeartbeat isArray). - self assert:(o compilerFlagsIHeartbeatTimer isArray). - self assert:(o compilerFlagsMultiThreaded isArray). - self assert:(o compilerFlagsMultiThreadedAssert isArray). - self assert:(o compilerFlagsMultiThreadedDebug isArray)." - - - ]]] - - - - - - - - ! Item was changed: ----- Method: CMakeVMMakerSqueakWindowsConfigTest>>testExecutableType (in category 'as yet unclassified') ----- testExecutableType + #(#SqueakWindowsConfig) + do:[:each | + (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | + o:= configuration new. + (o excludeFromBuild not) |(configuration isAbstractBaseClass) + ifTrue:[ + o:= configuration new. + self assert:(o executableType = 'WIN32'). "hello code smell"]]] - #(#SqueakWin32x86Builder) - do:[:builder | | o | - Smalltalk globals - allClassesDo:[:configuration | (configuration class category asString withoutQuoting startsWith: ((Smalltalk at:builder) configurationsCategory)) - ifTrue:[ - o:= configuration new. - self assert:(o executableType = 'WIN32'). "hello code smell" - ]]] - - ! Item was changed: ----- Method: CMakeVMMakerSqueakWindowsConfigTest>>testPlatformName (in category 'as yet unclassified') ----- testPlatformName self flag:'tty'. "todo: fix code smell in hard coded string" + #(#SqueakWindowsConfig) + do:[:each | + (Smalltalk at:each) + allSubclassesDo:[:configuration | | o | + o:= configuration new. + (o excludeFromBuild not) |(configuration isAbstractBaseClass) + ifTrue:[ + o:= configuration new. + self assert:(o platformName = 'win32'). "hello code smell"]]] - #(#SqueakWin32x86Builder) - do:[:builder | | o | - Smalltalk globals - allClassesDo:[:configuration | (configuration class category asString withoutQuoting startsWith: ((Smalltalk at:builder) configurationsCategory)) - ifTrue:[ - o:= configuration new. - self assert:(o platformName = 'win32'). "hello code smell" - ]]] - - !

1 0

conditionally define a function in sh/bash?
by Eliot Miranda 23 Jun '14

23 Jun '14

Hi All, I'm trying if [ "$OS" = Darwin ]; then function quietmd5 () { /sbin/md5 -q "$1"; } else function quietmd5 () { /usr/bin/md5sum "$1"| sed 's/ .*$//'; } fi but bash no like :-( -- best, Eliot

6 8

Re: Cog Spur Linux pthread error?
by Eliot Miranda 23 Jun '14

23 Jun '14

Hi Frank, (Bob, thanks for your reply). On Fri, Jun 20, 2014 at 2:39 PM, Frank Shearar <frank.shearar(a)gmail.com> wrote: > Hi Eliot, > > I thought I'd take a stab at setting up a CI job for Spur VM+Image, > and after futzing around with filenames, got an actual execution of > the VM. And then things broke. The full output's here: > > http://build.squeak.org/job/SqueakTrunkOnSpur/6/console > > but the error itself is this: > > pthread_setschedparam failed; consider using ITIMER_HEARTBEAT: > Operation not permitted > > and the process exited with status 22. > > Is this a simple thing to fix? Any idea what hoops I need to jump > through to work around the problem? So this is always described in the README on my website, see e.g. http://www.mirandabanda.org/files/Cog/VM/VM.r3006/README.3006. I *could* put checks in the VM that saw if the kernel was >- 2.6.13 and whether /etc/security/limits.d/VM.conf existed and issue a more helpful error message. But this is work and I feel like the README should be sufficient. What do y'all think? -- best, Eliot

5 6

← Newer
1
2
3
4
5
6
7
8
...
27
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev June 2014