Vm-dev November 2018

vm-dev@lists.squeakfoundation.org

23 participants
82 discussions

Start a nNew thread

Build failed: opensmalltalk-vm 1.0.1454
by AppVeyor 06 Nov '18

06 Nov '18

1 0

[OpenSmalltalk/opensmalltalk-vm] fe517e: Add Squeak3D to linux and Windows Squeak VM builds...
by GitHub 06 Nov '18

06 Nov '18

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: fe517ee146c2fb1f57cf6bd207b493543d096081 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/fe517ee146c2fb1f57… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2018-11-06 (Tue, 06 Nov 2018) Changed paths: M build.linux32ARMv6/squeak.cog.spur/plugins.ext M build.linux32ARMv6/squeak.stack.spur/plugins.ext M build.linux32ARMv6/squeak.stack.v3/plugins.ext M build.linux32x86/squeak.cog.spur.immutability/plugins.ext M build.linux32x86/squeak.cog.spur/plugins.ext M build.linux32x86/squeak.cog.v3/plugins.ext M build.linux32x86/squeak.sista.spur/plugins.ext M build.linux32x86/squeak.stack.spur/plugins.ext M build.linux32x86/squeak.stack.v3/plugins.ext M build.linux64x64/squeak.cog.spur.immutability/plugins.ext M build.linux64x64/squeak.cog.spur/plugins.ext M build.linux64x64/squeak.stack.spur/plugins.ext M build.win32x86/squeak.cog.spur.lowcode/plugins.ext M build.win32x86/squeak.cog.spur/plugins.ext M build.win32x86/squeak.cog.v3/plugins.ext M build.win32x86/squeak.sista.spur/plugins.ext M build.win32x86/squeak.stack.spur/plugins.ext M build.win32x86/squeak.stack.v3/plugins.ext M build.win64x64/squeak.cog.spur/plugins.ext M build.win64x64/squeak.stack.spur/plugins.ext Log Message: ----------- Add Squeak3D to linux and Windows Squeak VM builds. Can people test on those platforms, especially 64-bits? **NOTE:** This service has been marked for deprecation: https://developer.github.com/changes/2018-04-25-github-services-deprecation/ Functionality will be removed from GitHub.com on January 31st, 2019.

1 0

[OpenSmalltalk/opensmalltalk-vm] BuildSqueakSpurTrunkVMMakerImage.st disable underscores (#301)
by akgrant43 06 Nov '18

06 Nov '18

Disable underscores as assignment, allowing underscores in method names, which are used by vmmaker. You can view, comment on, or merge this pull request online at: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/301 -- Commit Summary -- * BuildSqueakSpurTrunkVMMakerImage.st disable underscores -- File Changes -- M image/BuildSqueakSpurTrunkVMMakerImage.st (4) -- Patch Links -- https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/301.patch https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/301.diff -- You are receiving this because you are subscribed to this thread. Reply to this email directly or view it on GitHub: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/301

4 3

Errored: OpenSmalltalk/opensmalltalk-vm#1474 (Cog - d6237f7)
by Travis CI 06 Nov '18

06 Nov '18

Build Update for OpenSmalltalk/opensmalltalk-vm ------------------------------------- Build: #1474 Status: Errored Duration: 37 mins and 43 secs Commit: d6237f7 (Cog) Author: Eliot Miranda Message: Merge pull request #301 from akgrant43/rbunderscores BuildSqueakSpurTrunkVMMakerImage.st disable underscores View the changeset: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/e9f6f2f2dd65...d6… View the full build log and details: https://travis-ci.org/OpenSmalltalk/opensmalltalk-vm/builds/451190039?utm_m… -- You can unsubscribe from build emails from the OpenSmalltalk/opensmalltalk-vm repository going to https://travis-ci.org/account/preferences/unsubscribe?repository=8795279&ut…. Or unsubscribe from *all* email updating your settings at https://travis-ci.org/account/preferences/unsubscribe?utm_medium=notificati…. Or configure specific recipients for build notifications in your .travis.yml file. See https://docs.travis-ci.com/user/notifications.

2 1

Canceled: OpenSmalltalk/opensmalltalk-vm#1473 (Cog - e9f6f2f)
by Travis CI 06 Nov '18

06 Nov '18

Build Update for OpenSmalltalk/opensmalltalk-vm ------------------------------------- Build: #1473 Status: Canceled Duration: 0 secs Commit: e9f6f2f (Cog) Author: Eliot Miranda Message: CogVM source as per VMMaker.oscog-eem.2481 ThreadedFFIPlugin: Fix a bug passing floats on the stack on X64. The original code passed stacked floats as doubles. Mark ffiPush*Float:in: as <inline: #always> since they are inined and this eliminates unused functions. Add some more test functions to sqFFITestFuncs.c View the changeset: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/39e43bd28f09...e9… View the full build log and details: https://travis-ci.org/OpenSmalltalk/opensmalltalk-vm/builds/451008719?utm_m… -- You can unsubscribe from build emails from the OpenSmalltalk/opensmalltalk-vm repository going to https://travis-ci.org/account/preferences/unsubscribe?repository=8795279&ut…. Or unsubscribe from *all* email updating your settings at https://travis-ci.org/account/preferences/unsubscribe?utm_medium=notificati…. Or configure specific recipients for build notifications in your .travis.yml file. See https://docs.travis-ci.com/user/notifications.

1 0

[OpenSmalltalk/opensmalltalk-vm] c2e11d: BuildSqueakSpurTrunkVMMakerImage.st disable unders...
by GitHub 06 Nov '18

06 Nov '18

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: c2e11da3bea41c738462fc8c53d304a0ab01a1cd https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/c2e11da3bea41c7384… Author: AlistairGrant <akgrant0710(a)gmail.com> Date: 2018-11-05 (Mon, 05 Nov 2018) Changed paths: M image/BuildSqueakSpurTrunkVMMakerImage.st Log Message: ----------- BuildSqueakSpurTrunkVMMakerImage.st disable underscores Disable underscores as assignment, allowing underscores in method names, which are used by vmmaker. Commit: d6237f777d8934bf233dc01253ade97a45895337 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/d6237f777d8934bf23… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2018-11-05 (Mon, 05 Nov 2018) Changed paths: M image/BuildSqueakSpurTrunkVMMakerImage.st Log Message: ----------- Merge pull request #301 from akgrant43/rbunderscores BuildSqueakSpurTrunkVMMakerImage.st disable underscores Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/e9f6f2f2dd65...d6… **NOTE:** This service has been marked for deprecation: https://developer.github.com/changes/2018-04-25-github-services-deprecation/ Functionality will be removed from GitHub.com on January 31st, 2019.

1 0

Errored: OpenSmalltalk/opensmalltalk-vm#1473 (Cog - e9f6f2f)
by Travis CI 05 Nov '18

05 Nov '18

Build Update for OpenSmalltalk/opensmalltalk-vm ------------------------------------- Build: #1473 Status: Errored Duration: 39 mins and 27 secs Commit: e9f6f2f (Cog) Author: Eliot Miranda Message: CogVM source as per VMMaker.oscog-eem.2481 ThreadedFFIPlugin: Fix a bug passing floats on the stack on X64. The original code passed stacked floats as doubles. Mark ffiPush*Float:in: as <inline: #always> since they are inined and this eliminates unused functions. Add some more test functions to sqFFITestFuncs.c View the changeset: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/39e43bd28f09...e9… View the full build log and details: https://travis-ci.org/OpenSmalltalk/opensmalltalk-vm/builds/451008719?utm_m… -- You can unsubscribe from build emails from the OpenSmalltalk/opensmalltalk-vm repository going to https://travis-ci.org/account/preferences/unsubscribe?repository=8795279&ut…. Or unsubscribe from *all* email updating your settings at https://travis-ci.org/account/preferences/unsubscribe?utm_medium=notificati…. Or configure specific recipients for build notifications in your .travis.yml file. See https://docs.travis-ci.com/user/notifications.

1 0

[OpenSmalltalk/opensmalltalk-vm] e9f6f2: CogVM source as per VMMaker.oscog-eem.2481
by GitHub 05 Nov '18

05 Nov '18

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: e9f6f2f2dd65978b016d433594a10786d8a5049f https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/e9f6f2f2dd65978b01… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2018-11-05 (Mon, 05 Nov 2018) Changed paths: M platforms/Cross/plugins/SqueakFFIPrims/sqFFITestFuncs.c M src/plugins/SqueakFFIPrims/ARM32FFIPlugin.c M src/plugins/SqueakFFIPrims/IA32FFIPlugin.c M src/plugins/SqueakFFIPrims/X64SysVFFIPlugin.c M src/plugins/SqueakFFIPrims/X64Win64FFIPlugin.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.2481 ThreadedFFIPlugin: Fix a bug passing floats on the stack on X64. The original code passed stacked floats as doubles. Mark ffiPush*Float:in: as <inline: #always> since they are inined and this eliminates unused functions. Add some more test functions to sqFFITestFuncs.c **NOTE:** This service has been marked for deprecation: https://developer.github.com/changes/2018-04-25-github-services-deprecation/ Functionality will be removed from GitHub.com on January 31st, 2019.

1 0

VM Maker: VMMaker.oscog-eem.2481.mcz
by commits＠source.squeak.org 05 Nov '18

05 Nov '18

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2481.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2481 Author: eem Time: 5 November 2018, 10:32:17.399439 am UUID: 43e5789a-92ab-47cd-9c5b-ffe711bbfa4e Ancestors: VMMaker.oscog-eem.2480 ThreadedFFIPlugin: Fix a bug passing floats on the stack on X64. The original code passed stacked floats as doubles. Mark ffiPush*Float:in: as <inline: #always> since they are inined and this eliminates unused functions. Add some commentary to stack alignment methods to aid locating associated defines. =============== Diff against VMMaker.oscog-eem.2480 =============== Item was changed: ----- Method: ThreadedARMFFIPlugin>>ffiPushDoubleFloat:in: (in category 'marshalling') ----- ffiPushDoubleFloat: value in: calloutState <var: #value type: #double> <var: #calloutState type: #'CalloutState *'> + <inline: #always> - <inline: true> calloutState floatRegisterIndex < (NumFloatRegArgs - 1) ifTrue: [(calloutState floatRegisterIndex bitAnd: 1) = 1 ifTrue: [calloutState backfillFloatRegisterIndex: calloutState floatRegisterIndex. calloutState floatRegisterIndex: (calloutState floatRegisterIndex + 1)]. (self cCoerceSimple: (self addressOf: (calloutState floatRegisters at: calloutState floatRegisterIndex)) to: 'double*') at: 0 put: value. calloutState floatRegisterIndex: calloutState floatRegisterIndex + 2] ifFalse: [calloutState currentArg + 8 > calloutState limit ifTrue: [^FFIErrorCallFrameTooBig]. calloutState floatRegisterIndex: NumFloatRegArgs. interpreterProxy storeFloatAtPointer: calloutState currentArg from: value. calloutState currentArg: calloutState currentArg + 8]. ^0! Item was changed: ----- Method: ThreadedARMFFIPlugin>>ffiPushSingleFloat:in: (in category 'marshalling') ----- ffiPushSingleFloat: value in: calloutState <var: #value type: #float> <var: #calloutState type: #'CalloutState *'> + <inline: #always> - <inline: true> calloutState floatRegisterIndex < NumFloatRegArgs ifTrue: [calloutState backfillFloatRegisterIndex > 0 ifTrue: [calloutState floatRegisters at: calloutState backfillFloatRegisterIndex put: value. calloutState backfillFloatRegisterIndex: 0] ifFalse: [calloutState floatRegisters at: calloutState floatRegisterIndex put: value. calloutState floatRegisterIndex: calloutState floatRegisterIndex + 1]] ifFalse: [calloutState currentArg + 4 > calloutState limit ifTrue: [^FFIErrorCallFrameTooBig]. interpreterProxy storeSingleFloatAtPointer: calloutState currentArg from: value. calloutState currentArg: calloutState currentArg + 4]. ^0! Item was changed: ----- Method: ThreadedFFIPlugin class>>preambleCCode (in category 'translation') ----- preambleCCode + "For a source of builtin defines grep for builtin_define in a gcc release config directory. + See See platforms/Cross/vm/sqCogStackAlignment.h for per-platform definitions for + STACK_ALIGN_BYTES MUST_ALIGN_STACK et al." - "For a source of builtin defines grep for builtin_define in a gcc release config directory." ^' #include "sqAssert.h" /* for assert */ #define ThreadedFFIPlugin 1 /* to filter-out unwanted declarations from sqFFI.h */ #include "sqFFI.h" /* for logging and surface functions */ #include "sqCogStackAlignment.h" /* for STACK_ALIGN_BYTES and getsp() */ #ifdef _MSC_VER # define alloca _alloca #endif #if defined(__GNUC__) && (defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__)) # define setsp(sp) asm volatile ("movl %0,%%esp" : : "m"(sp)) # elif defined(__GNUC__) && (defined(__amd64__) || defined(__x86_64__) || defined(__amd64) || defined(__x86_64)) # define setsp(sp) asm volatile ("movq %0,%%rsp" : : "m"(sp)) # elif defined(__GNUC__) && (defined(__arm__)) # define setsp(sp) asm volatile ("ldr %%sp, %0" : : "m"(sp)) #endif #if !!defined(getsp) # define getsp() 0 #endif #if !!defined(setsp) # define setsp(ignored) 0 #endif #if !!defined(STACK_ALIGN_BYTES) # define STACK_ALIGN_BYTES 0 #endif /* !!defined(STACK_ALIGN_BYTES) */ /* For ABI that require stack alignment greater than natural word size */ #define MUST_ALIGN_STACK (STACK_ALIGN_BYTES > sizeof(void*)) #if defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__) /* Both Mac OS X x86 and Win32 x86 return structs of a power of two in size * less than or equal to eight bytes in length in registers. Linux never does so. */ # if __linux__ # define WIN32_X86_STRUCT_RETURN 0 # else # define WIN32_X86_STRUCT_RETURN 1 # endif # if _WIN32 # define PLATFORM_API_USES_CALLEE_POPS_CONVENTION 1 # endif # elif defined(__amd64__) || defined(__x86_64__) || defined(__amd64) || defined(__x86_64) # if _WIN32 | _WIN64 # define PLATFORM_API_USES_CALLEE_POPS_CONVENTION 1 # endif #endif /* defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__) */ #if !!defined(ALLOCA_LIES_SO_SETSP_BEFORE_CALL) # if defined(__MINGW32__) && !!defined(__clang__) && (__GNUC__ >= 3) && (defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__)) /* * cygwin -mno-cygwin (MinGW) gcc 3.4.x''s alloca is a library routine that answers * %esp + xx, so the outgoing stack is offset by one or more word if uncorrected. * Grab the actual stack pointer to correct. */ # define ALLOCA_LIES_SO_SETSP_BEFORE_CALL 1 # else # define ALLOCA_LIES_SO_SETSP_BEFORE_CALL 0 # endif #endif /* !!defined(ALLOCA_LIES_SO_SETSP_BEFORE_CALL) */ #if !!defined(PLATFORM_API_USES_CALLEE_POPS_CONVENTION) # define PLATFORM_API_USES_CALLEE_POPS_CONVENTION 0 #endif /* This alignment stuff is a hack for integerAt:put:size:signed:/primitiveFFIIntegerAt[Put]. + * The assumption right now is that all processors support unaligned access. That only + * holds true for x86, x86-64 & ARMv6 & later. But this keeps us going until we can address + * it properly. - * The assumption right now is that all processors suppoprt unaligned access. That only - * holds true for x86, x86-64 & ARMv6 & later. But this keeps us going until we can addresws it properly. */ #define unalignedShortAt(a) shortAt(a) #define unalignedShortAtput(a,v) shortAtput(a,v) #define unalignedLong32At(a) long32At(a) #define unalignedLong32Atput(a,v) long32Atput(a,v) #define unalignedLong64At(a) long64At(a) #define unalignedLong64Atput(a,v) long64Atput(a,v) /* The dispatchOn:in:with:with: generates an unwanted call on error. Just squash it. */ #define error(foo) 0 #ifndef SQUEAK_BUILTIN_PLUGIN /* but print assert failures. */ void warning(char *s) { /* Print an error message but don''t exit. */ printf("\n%s\n", s); } #endif /* sanitize */ #ifdef SQUEAK_BUILTIN_PLUGIN # define EXTERN #else # define EXTERN extern #endif '! Item was changed: ----- Method: ThreadedFFIPlugin>>cStackAlignment (in category 'marshalling') ----- cStackAlignment + "Many ABIs mandate a particular stack alignment greater than the natural word + size. If so, this macro will answer that alignment. If not, this macro will answer 0. + See platforms/Cross/vm/sqCogStackAlignment.h and class-side preambleCCode." - "Many ABIs mandate a particular stack alignment greater than the natural word size. - If so, this macro will answer that alignment. If not, this macro will answer 0. See - class-side preambleCCode." <cmacro: '() STACK_ALIGN_BYTES'> ^0! Item was changed: ----- Method: ThreadedFFIPlugin>>mustAlignStack (in category 'marshalling') ----- mustAlignStack "Many ABIs mandate a particular stack alignment greater than the natural word size. + If so, this macro will answer true. See platforms/Cross/vm/sqCogStackAlignment.h + and class-side preambleCCode." - If so, this macro will answer true. See class-side preambleCCode." <cmacro: '() MUST_ALIGN_STACK'> ^false! Item was changed: ----- Method: ThreadedIA32FFIPlugin>>ffiPushDoubleFloat:in: (in category 'marshalling') ----- ffiPushDoubleFloat: value in: calloutState <var: #value type: #double> <var: #calloutState type: #'CalloutState *'> + <inline: #always> - <inline: true> calloutState currentArg + 8 > calloutState limit ifTrue: [^FFIErrorCallFrameTooBig]. interpreterProxy storeFloatAtPointer: calloutState currentArg from: value. calloutState currentArg: calloutState currentArg + 8. ^0! Item was changed: ----- Method: ThreadedIA32FFIPlugin>>ffiPushSingleFloat:in: (in category 'marshalling') ----- ffiPushSingleFloat: value in: calloutState <var: #value type: #float> <var: #calloutState type: #'CalloutState *'> + <inline: #always> - <inline: true> calloutState currentArg + 4 > calloutState limit ifTrue: [^FFIErrorCallFrameTooBig]. interpreterProxy storeSingleFloatAtPointer: calloutState currentArg from: value. calloutState currentArg: calloutState currentArg + 4. ^0! Item was changed: ----- Method: ThreadedX64FFIPlugin>>ffiPushDoubleFloat:in: (in category 'marshalling') ----- ffiPushDoubleFloat: value in: calloutState <var: #value type: #double> <var: #calloutState type: #'CalloutState *'> + <inline: #always> - <inline: true> calloutState floatRegisterIndex < NumFloatRegArgs ifTrue: [calloutState floatRegisters at: calloutState floatRegisterIndex put: value. calloutState incrementFloatRegisterIndex] ifFalse: [calloutState currentArg + WordSize > calloutState limit ifTrue: [^FFIErrorCallFrameTooBig]. interpreterProxy storeFloatAtPointer: calloutState currentArg from: value. calloutState currentArg: calloutState currentArg + WordSize]. ^0! Item was changed: ----- Method: ThreadedX64FFIPlugin>>ffiPushSingleFloat:in: (in category 'marshalling') ----- ffiPushSingleFloat: value in: calloutState <var: #value type: #float> <var: #calloutState type: #'CalloutState *'> + <inline: #always> - <inline: true> calloutState floatRegisterIndex < NumFloatRegArgs ifTrue: [(self cCoerce: calloutState floatRegisters + calloutState floatRegisterIndex to: #'float *') at: 0 put: value. calloutState incrementFloatRegisterIndex] ifFalse: [calloutState currentArg + WordSize > calloutState limit ifTrue: [^FFIErrorCallFrameTooBig]. + "Float passed in least significant word, but good to zero the high bits for clarity." + interpreterProxy + long64AtPointer: calloutState currentArg put: 0; + storeSingleFloatAtPointer: calloutState currentArg from: value. - interpreterProxy storeFloatAtPointer: calloutState currentArg from: value. calloutState currentArg: calloutState currentArg + WordSize]. ^0!

1 0

VM Maker: VMMaker.oscog-eem.2480.mcz
by commits＠source.squeak.org 02 Nov '18

02 Nov '18

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2480.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2480 Author: eem Time: 31 October 2018, 10:33:03.858395 am UUID: bb3ffda7-8241-4dea-b886-d656e474b6c1 Ancestors: VMMaker.oscog-eem.2479 Simulator: Provide simulation stubs for the B3DAcceleratorPlugin C api. Slang: Provide some clean up of pointer types in TMethods and type extraction, ensuring there's a space before any trailing *'s. =============== Diff against VMMaker.oscog-eem.2479 =============== Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dDrawArrays:_:_:_: (in category 'simulation') ----- + b3dDrawArrays: handle _: mode _: minIdx _: maxIdx + "int b3dDrawArrays(int handle, int mode, int minIdx, int maxIdx)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dDrawElements:_:_:_: (in category 'simulation') ----- + b3dDrawElements: handle _: mode _: faceSize _: facePtr + "int b3dDrawElements(int handle, int mode, int nFaces, unsigned int *facePtr)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dDrawRangeElements:_:_:_:_:_: (in category 'simulation') ----- + b3dDrawRangeElements: handle _: mode _: minIdx _: maxIdx _: faceSize _: facePtr + "int b3dDrawRangeElements(int handle, int mode, int minIdx, int maxIdx, int nFaces, unsigned int *facePtr)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dLoadClientState:_:_:_:_:_:_:_:_: (in category 'simulation') ----- + b3dLoadClientState: handle _: vtxData _: vtxSize _: colorData _: colorSize _: normalData _: normalSize _: txData _: txSize + "int b3dLoadClientState(int handle, float *vtxData, int vtxSize, float *colorData, int colorSize, float *normalData, int normalSize, float *txData, int txSize)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxActualTextureDepth:_: (in category 'simulation') ----- + b3dxActualTextureDepth: renderer _: handle + "int b3dxActualTextureDepth(int renderer, int handle)" + <doNotGenerate> + ^-1! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxAllocateTexture:_:_:_: (in category 'simulation') ----- + b3dxAllocateTexture: renderer _: w _: h _: d + "int b3dxAllocateTexture(int renderer, int w, int h, int d)" + <doNotGenerate> + ^-1! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxCompositeTexture:_:_:_:_:_:_: (in category 'simulation') ----- + b3dxCompositeTexture: rendererHandle _: texHandle _: x _: y _: w _: h _: translucent + "int b3dxCompositeTexture(int renderer, int handle, int x, int y, int w, int h, int translucent)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxDestroyRenderer: (in category 'simulation') ----- + b3dxDestroyRenderer: handle + "int b3dxDestroyRenderer(int handle)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxDestroyTexture:_: (in category 'simulation') ----- + b3dxDestroyTexture: renderer _: handle + "int b3dxDestroyTexture(int renderer, int handle)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxDisableLights: (in category 'simulation') ----- + b3dxDisableLights: handle + "int b3dxDisableLights(int handle)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxFinishRenderer: (in category 'simulation') ----- + b3dxFinishRenderer: handle + "int b3dxFinishRenderer(int handle)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxFlushRenderer: (in category 'simulation') ----- + b3dxFlushRenderer: handle + "int b3dxFlushRenderer(int handle)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxGetRendererColorMasks:_: (in category 'simulation') ----- + b3dxGetRendererColorMasks: handle _: masks + "int b3dxGetRendererColorMasks(int handle, int *masks)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxGetRendererSurfaceDepth: (in category 'simulation') ----- + b3dxGetRendererSurfaceDepth: handle + "int b3dxGetRendererSurfaceDepth(int handle)" + <doNotGenerate> + ^-1! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxGetRendererSurfaceHandle: (in category 'simulation') ----- + b3dxGetRendererSurfaceHandle: handle + "int b3dxGetRendererSurfaceHandle(int handle)" + <doNotGenerate> + ^-1! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxGetRendererSurfaceHeight: (in category 'simulation') ----- + b3dxGetRendererSurfaceHeight: handle + "int b3dxGetRendererSurfaceHeight(int handle)" + <doNotGenerate> + ^-1! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxGetRendererSurfaceWidth: (in category 'simulation') ----- + b3dxGetRendererSurfaceWidth: handle + "int b3dxGetRendererSurfaceWidth(int handle)" + <doNotGenerate> + ^-1! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxIsOverlayRenderer: (in category 'simulation') ----- + b3dxIsOverlayRenderer: handle + "int b3dxIsOverlayRenderer(int handle)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxLoadLight:_:_: (in category 'simulation') ----- + b3dxLoadLight: handle _: i _: light + "int b3dxLoadLight(int handle, int index, B3DPrimitiveLight *light)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxLoadMaterial:_: (in category 'simulation') ----- + b3dxLoadMaterial: handle _: material + "int b3dxLoadMaterial(int handle, B3DPrimitiveMaterial *material)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxRenderVertexBuffer:_:_:_:_:_:_:_: (in category 'simulation') ----- + b3dxRenderVertexBuffer: handle _: primType _: flags _: texHandle _: vtxArray _: vtxCount _: idxArray _: idxCount + "int b3dxRenderVertexBuffer(int handle, int primType, int flags, int texHandle, float *vtxArray, int vtxSize, int *idxArray, int idxSize)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxSwapRendererBuffers: (in category 'simulation') ----- + b3dxSwapRendererBuffers: handle + "int b3dxSwapRendererBuffers(int handle)" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxTextureByteSex:_: (in category 'simulation') ----- + b3dxTextureByteSex: renderer _: handle + "int b3dxTextureByteSex(int renderer, int handle)" + <doNotGenerate> + ^-1! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxTextureColorMasks:_:_: (in category 'simulation') ----- + b3dxTextureColorMasks: renderer _: handle _: masks + "int b3dxTextureColorMasks(int renderer, int handle, int masks[4])" + <doNotGenerate> + ^false! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxTextureSurfaceHandle:_: (in category 'simulation') ----- + b3dxTextureSurfaceHandle: renderer _: handle + "int b3dxTextureSurfaceHandle(int renderer, int handle)" + <doNotGenerate> + ^-1! Item was added: + ----- Method: B3DAcceleratorPlugin>>b3dxUploadTexture:_:_:_:_:_: (in category 'simulation') ----- + b3dxUploadTexture: renderer _: handle _: w _: h _: d _: bitsPtr + "int b3dxUploadTexture(int renderer, int handle, int w, int h, int d, void* bits)" + <doNotGenerate> + ^false! Item was changed: ----- Method: CCodeGenerator>>baseTypeForType: (in category 'utilities') ----- baseTypeForType: aCType "Reduce various declarations to the most basic type we can determine." + | type fpIndex closeidx openidx | - | type fpIndex closeidx openidx index | type := aCType. ((openidx := type indexOfSubCollection: 'const ') > 0 and: [openidx = 1 or: [(type at: openidx) isSeparator]]) ifTrue: [type := type copyReplaceFrom: openidx to: openidx + 5 with: '']. ((type beginsWith: 'unsigned') and: [(type includes: $:) and: [type last isDigit]]) ifTrue: [^#usqInt]. "collapse e.g. void (*foo(int bar))(void) to void (*)(void)" (fpIndex := type indexOfSubCollection: '(*') > 0 ifTrue: ["elide the function arguments after *, if there are any" type := type copyReplaceFrom: (type indexOf: $( startingAt: fpIndex + 1) to: (type indexOf: $) startingAt: fpIndex + 1) with: ''. "elide the function name after *, if there is one" type := type copyReplaceFrom: fpIndex + 2 to: (type indexOf: $) startingAt: fpIndex + 1) with: ')']. "collapse [size] to *" openidx := 0. [(openidx := type indexOf: $[ startingAt: openidx + 1) > 0 and: [(closeidx := type indexOf: $] startingAt: openidx + 1) > 0]] whileTrue: [type := type copyReplaceFrom: openidx to: closeidx with: '*']. + + "map foo* to foo *" + ^self conventionalTypeForType: type! - type := type withBlanksTrimmed. - index := type size. - "Ensure there is a space between the type and any trailing *'s" - [(type at: index) == $*] whileTrue: - [index := index - 1]. - (index < type size - and: [(type at: index) ~~ Character space]) ifTrue: - [type := (type copyFrom: 1 to: index), ' ', (type copyFrom: index + 1 to: type size)]. - ^type! Item was added: + ----- Method: CCodeGenerator>>conventionalTypeForType: (in category 'utilities') ----- + conventionalTypeForType: aCTypeString + "The pointer type convention in this version of VMMaker is to have a space between the base type and any *'s. + C type comparisons are simple string comparisons; therefore the convention matters. + Ensure there is a space between the base type and any trailing *'s. Trim whitespace." + | type index | + type := aCTypeString withBlanksTrimmed. + index := type size. + [(type at: index) == $*] whileTrue: + [index := index - 1]. + (index < type size + and: [(type at: index) ~~ Character space]) ifTrue: + [type := (type copyFrom: 1 to: index), ' ', (type copyFrom: index + 1 to: type size)]. + ^type! Item was changed: ----- Method: CCodeGenerator>>returnTypeForSend:in:ifNil: (in category 'type inference') ----- returnTypeForSend: sendNode in: aTMethod ifNil: typeIfNil "Answer the return type for a send. Unbound sends default to typeIfNil. Methods with types as yet unknown have a type determined either by the kernelReturnTypes or the table below, or, if they are in neither set, then nil. The inferred type should match as closely as possible the C type of generated expessions so that inlining would not change the expression. If there is a method for sel but its return type is as yet unknown it mustn't be defaulted, since on a subsequent pass its type may be computable." | sel methodOrNil | methodOrNil := self anyMethodNamed: (sel := sendNode selector). (methodOrNil notNil and: [methodOrNil returnType notNil]) ifTrue: [^self baseTypeForType: methodOrNil returnType]. ^kernelReturnTypes at: sel ifAbsent: [sel caseOf: { [#integerValueOf:] -> [#sqInt]. [#isIntegerObject:] -> [#int]. [#negated] -> [self promoteArithmeticTypes: (sendNode receiver typeFrom: self in: aTMethod) and: #int]. [#+] -> [self typeForArithmetic: sendNode in: aTMethod]. [#-] -> [self typeForArithmetic: sendNode in: aTMethod]. [#*] -> [self typeForArithmetic: sendNode in: aTMethod]. [#/] -> [self typeForArithmetic: sendNode in: aTMethod]. [#//] -> [self typeForArithmetic: sendNode in: aTMethod]. [#\\] -> [self typeForArithmetic: sendNode in: aTMethod]. [#rem:] -> [self typeForArithmetic: sendNode in: aTMethod]. [#quo:] -> [self typeForArithmetic: sendNode in: aTMethod]. "C99 Sec Bitwise shift operators ... 3 Sematics ... The integer promotions are performed on each of the operands. The type of the result is that of the promoted left operand..." [#>>] -> [sendNode receiver typeFrom: self in: aTMethod]. [#<<] -> [sendNode receiver typeFrom: self in: aTMethod]. [#addressOf:] -> [(sendNode receiver typeFrom: self in: aTMethod) ifNil: [#sqInt] ifNotNil: [:type| type, (type last isLetter ifTrue: [' *'] ifFalse: ['*'])]]. [#at:] -> [self typeForDereference: sendNode in: aTMethod]. [#bitAnd:] -> [self typeForArithmetic: sendNode in: aTMethod]. [#bitOr:] -> [self typeForArithmetic: sendNode in: aTMethod]. [#bitXor:] -> [self typeForArithmetic: sendNode in: aTMethod]. [#bitClear:] -> [self typeForArithmetic: sendNode in: aTMethod]. [#bitInvert32] -> [#'unsigned int']. [#bitInvert64] -> [self promoteArithmeticTypes: (sendNode receiver typeFrom: self in: aTMethod) and: #int]. [#byteSwap32] -> [#'unsigned int']. [#byteSwap64] -> [#'unsigned long long']. [#byteSwapped32IfBigEndian:] -> [#'unsigned int']. [#byteSwapped64IfBigEndian:] -> [#'unsigned long long']. [#=] -> [#int]. [#~=] -> [#int]. [#==] -> [#int]. [#~~] -> [#int]. [#<] -> [#int]. [#<=] -> [#int]. [#>] -> [#int]. [#>=] -> [#int]. [#between:and:] -> [#int]. [#anyMask:] -> [#int]. [#allMask:] -> [#int]. [#noMask:] -> [#int]. [#isNil] -> [#int]. [#notNil] -> [#int]. [#&] -> [#int]. [#|] -> [#int]. [#not] -> [#int]. [#asFloat] -> [#double]. [#atan] -> [#double]. [#exp] -> [#double]. [#log] -> [#double]. [#sin] -> [#double]. [#sqrt] -> [#double]. [#asLong] -> [#long]. [#asInteger] -> [#sqInt]. [#asIntegerPtr] -> [#'sqIntptr_t']. [#asUnsignedInteger] -> [#usqInt]. [#asUnsignedIntegerPtr]-> [#'usqIntptr_t']. [#asUnsignedLong] -> [#'unsigned long']. [#asUnsignedLongLong] -> [#'unsigned long long']. [#asVoidPointer] -> [#'void *']. [#signedIntToLong] -> [#usqInt]. "c.f. generateSignedIntToLong:on:indent:" [#signedIntToShort] -> [#usqInt]. "c.f. generateSignedIntToShort:on:indent:" + [#cCoerce:to:] -> [self conventionalTypeForType: sendNode args last value]. + [#cCoerceSimple:to:] -> [self conventionalTypeForType: sendNode args last value]. - [#cCoerce:to:] -> [sendNode args last value]. - [#cCoerceSimple:to:] -> [sendNode args last value]. [#sizeof:] -> [#'usqIntptr_t']. "Technically it's a size_t but it matches on target architectures so far..." [#ifTrue:ifFalse:] -> [self typeForConditional: sendNode in: aTMethod]. [#ifFalse:ifTrue:] -> [self typeForConditional: sendNode in: aTMethod]. [#ifTrue:] -> [self typeForConditional: sendNode in: aTMethod]. [#ifFalse:] -> [self typeForConditional: sendNode in: aTMethod]. [#and:] -> [#sqInt]. [#or:] -> [#sqInt]. [#caseOf:] -> [self typeFor: sendNode args first in: aTMethod] } otherwise: "If there /is/ a method for sel but its return type is as yet unknown it /mustn't/ be defaulted, since on a subsequent pass its type may be computable. Only default unbound selectors." [methodOrNil ifNotNil: [nil] ifNil: [typeIfNil]]]! Item was changed: ----- Method: SmartSyntaxPluginTMethod>>recordDeclarationsIn: (in category 'transforming') ----- recordDeclarationsIn: aCCodeGen "Record C type declarations of the forms <returnTypeC: 'float'> <var: #foo declareC: 'float foo'> <var: #foo type:'float'> <var: #foo as: Class> or the older, obsolete self returnTypeC: 'float'. self var: #foo declareC: 'float foo' self var: #foo type:'float'. self var: #foo as: Class and remove the declarations from the method body." | newStatements | properties pragmas notEmpty ifTrue: [properties pragmas do: [:pragma| + pragma keyword == #var:declareC: ifTrue: - pragma keyword = #var:declareC: ifTrue: [self checkedDeclarationAt: pragma arguments first asString put: pragma arguments last in: aCCodeGen]. + pragma keyword == #var:type: ifTrue: - pragma keyword = #var:type: ifTrue: [| varName varType | varName := pragma arguments first asString. + varType := aCCodeGen conventionalTypeForType: pragma arguments last. + varType last == $* ifFalse: [varType := varType, ' ']. - varType := pragma arguments last. - varType last = $* ifFalse: [varType := varType, ' ']. self checkedDeclarationAt: varName put: varType, varName in: aCCodeGen]. + pragma keyword == #var:as: ifTrue: - pragma keyword = #var:as: ifTrue: [| theClass | theClass := Smalltalk at: pragma arguments last name asSymbol ifAbsent: [nil]. theClass isBehavior ifFalse: [^self error: 'declarator must be a Behavior']. self checkedDeclarationAt: pragma arguments first value asString put: (theClass ccgDeclareCForVar: pragma arguments first asString) in: aCCodeGen]. + pragma keyword == #returnTypeC: ifTrue: - pragma keyword = #returnTypeC: ifTrue: [self returnType: pragma arguments last]. pragma keyword = #doNotGenerate: ifTrue: [locals removeKey: pragma arguments last]]. ^self]. newStatements := OrderedCollection new: parseTree statements size. parseTree statements do: [:stmt | | isDeclaration | isDeclaration := false. stmt isSend ifTrue: + [stmt selector == #var:declareC: ifTrue: - [stmt selector = #var:declareC: ifTrue: [isDeclaration := true. self declarationAt: stmt args first value asString put: stmt args last value]. + stmt selector = #var:type: ifTrue: + [| varName varType | - stmt selector = #var:type: ifTrue: [ - | varName varType | isDeclaration := true. varName := stmt args first value asString. + varType := aCCodeGen conventionalTypeForType: stmt args last value. + varType last == $* ifFalse: [varType := varType, ' ']. + self declarationAt: varName put: varType, varName]. + stmt selector == #var:as: ifTrue: - varType := stmt args last value. - varType last = $* ifFalse: [varType := varType, ' ']. - self declarationAt: varName put: varType, varName. - ]. - stmt selector = #var:as: ifTrue: [| theClass | isDeclaration := true. theClass := Smalltalk at: stmt args last name asSymbol ifAbsent: [nil]. theClass isBehavior ifFalse: [^self error: 'declarator must be a Behavior']. self declarationAt: stmt args first value asString put: (theClass ccgDeclareCForVar: stmt args first value asString)]. + stmt selector == #returnTypeC: ifTrue: - stmt selector = #returnTypeC: ifTrue: [isDeclaration := true. returnType := stmt args last value]]. isDeclaration ifFalse: [newStatements add: stmt]]. parseTree setStatements: newStatements asArray! Item was changed: ----- Method: SmartSyntaxPluginTMethod>>setSelector:definingClass:args:locals:block:primitive:properties:comment: (in category 'initialization') ----- setSelector: sel definingClass: class args: argList locals: localList block: aBlockNode primitive: aNumber properties: methodProperties comment: aComment "Initialize this method using the given information." selector := sel. definingClass := class. returnType := #sqInt. "assume return type is sqInt for now" args := argList asOrderedCollection collect: [:arg | arg key]. locals := (localList collect: [:arg | arg key]) asSet. declarations := Dictionary new. primitive := aNumber. properties := methodProperties. comment := aComment. parseTree := aBlockNode asTranslatorNodeIn: self. labels := Set new. complete := false. "set to true when all possible inlining has been done" export := self extractExportDirective. static := self extractStaticDirective. self extractSharedCase. isPrimitive := false. "set to true only if you find a primtive direction." suppressingFailureGuards := self extractSuppressFailureGuardDirective. + self recordDeclarationsIn: CCodeGenerator basicNew. "Just for conventionalTypeForType:" - self recordDeclarationsIn: nil. self extractPrimitiveDirectives. ! Item was changed: ----- Method: TMethod>>recordDeclarationsIn: (in category 'transformations') ----- recordDeclarationsIn: aCCodeGen "Record C type declarations of the forms <returnTypeC: 'float'> <var: #foo declareC: 'float foo'> <var: #foo type:'float'> or the older, obsolete self returnTypeC: 'float'. self var: #foo declareC: 'float foo' self var: #foo type:'float'. and remove the declarations from the method body." | newStatements | properties pragmas notEmpty ifTrue: [properties pragmas do: [:pragma| + pragma keyword == #var:declareC: ifTrue: - pragma keyword = #var:declareC: ifTrue: [self checkedDeclarationAt: pragma arguments first asString put: pragma arguments last in: aCCodeGen]. + pragma keyword == #var:type: ifTrue: - pragma keyword = #var:type: ifTrue: [| varName varType | varName := pragma arguments first asString. + varType := aCCodeGen conventionalTypeForType: pragma arguments last. + varType last == $* ifFalse: [varType := varType, ' ']. - varType := pragma arguments last. - varType last = $* ifFalse: [varType := varType, ' ']. self checkedDeclarationAt: varName put: varType, varName in: aCCodeGen]. pragma keyword = #returnTypeC: ifTrue: [self returnType: pragma arguments last]. pragma keyword = #doNotGenerate: ifTrue: [locals remove: pragma arguments last]]. ^self]. newStatements := OrderedCollection new: parseTree statements size. + parseTree statements do: + [ :stmt | | isDeclaration | - parseTree statements do: [ :stmt | - | isDeclaration | isDeclaration := false. + stmt isSend ifTrue: + [stmt selector == #var:declareC: ifTrue: + [isDeclaration := true. + self declarationAt: stmt args first value asString put: stmt args last value]. + stmt selector == #var:type: ifTrue: + [| varName varType | - stmt isSend ifTrue: [ - stmt selector = #var:declareC: ifTrue: [ isDeclaration := true. - self declarationAt: stmt args first value asString put: stmt args last value. - ]. - stmt selector = #var:type: ifTrue: [ - | varName varType | - isDeclaration := true. varName := stmt args first value asString. + varType := aCCodeGen conventionalTypeForType: stmt args last value. + varType last == $* ifFalse: [varType := varType, ' ']. + self declarationAt: varName put: varType, varName]. + stmt selector = #returnTypeC: ifTrue: + [isDeclaration := true. + returnType := stmt args last value]]. + isDeclaration ifFalse: + [newStatements add: stmt]]. - varType := stmt args last value. - varType last = $* ifFalse: [varType := varType, ' ']. - self declarationAt: varName put: varType, varName. - ]. - stmt selector = #returnTypeC: ifTrue: [ - isDeclaration := true. - returnType := stmt args last value. - ]. - ]. - isDeclaration ifFalse: [ - newStatements add: stmt. - ]. - ]. parseTree setStatements: newStatements asArray.!

3 2

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev November 2018