Hello!<div><br></div><div>I&#39;ve played with jhc and sdl binding a bit on osx.</div><div>Unfortunately it does not worked. The original example compiled, but exited with exception. (it said the there is no autoreleasepool defined...)</div>
<div>After a little modification I&#39;ve got correct haskell code, what fails with gcc.</div><div><br></div><div>I&#39;ve attached the source file.</div><div>Cheers,</div><div>Csaba</div><div><br></div><div>Here is the output:<br>
</div><blockquote class="webkit-indent-blockquote" style="margin: 0 0 0 40px; border: none; padding: 0px;"><div><div><i>jhc -p SDL test.hs -o test --optc=-I/opt/local/include/SDL --optc=-D_GNU_SOURCE=1 --optc=-D_THREAD_SAFE --optc=-L/opt/local/lib --optc=-lSDLmain --optc=-lSDL --optc=-Wl,-framework,Cocoa</i></div>
</div><div><div><i>jhc 0.7.6 (0.7.6-3)</i></div></div><div><div><i>Finding Dependencies...</i></div></div><div><div><i>Using Ho Cache: &#39;/Users/hruskacsaba/.jhc/cache&#39;</i></div></div><div><div><i>Main                    [test.hs] &lt;~/.jhc/cache/sapvdjvngcil41e08abohho0f9.ho&gt;</i></div>
</div><div><div><i>Fresh: &lt;~/.jhc/cache/sapvdjvngcil41e08abohho0f9.ho&gt;</i></div></div><div><div><i>Typechecking...</i></div></div><div><div><i>Compiling...</i></div></div><div><div><i>Collected Compilation...</i></div>
</div><div><div><i>-- typeAnalyzeMethods</i></div></div><div><div><i>-- BoxifyProgram</i></div></div><div><div><i>-- Boxy WorkWrap</i></div></div><div><div><i>-- LambdaLift</i></div></div><div><div><i>E</i></div></div><div>
<div><i>├─case: 696</i></div></div><div><div><i>├─case-alt: 1160</i></div></div><div><div><i>├─error: 10</i></div></div><div><div><i>├─lambda: 193</i></div></div><div><div><i>├─let-binding: 206</i></div></div><div><div><i>├─lit: 2336</i></div>
</div><div><div><i>├─other: 417</i></div></div><div><div><i>├─prim: 240</i></div></div><div><div><i>└─var-use: 1478</i></div></div><div><div><i>Converting to Grin...</i></div></div><div><div><i>Found 0 CAFs to convert to constants, 0 of which are recursive.</i></div>
</div><div><div><i>Recursive</i></div></div><div><div><i><br></i></div></div><div><div><i>Constant</i></div></div><div><div><i><br></i></div></div><div><div><i>CAFS</i></div></div><div><div><i>theMain$7 v-1341403669 (FtheMain$7)</i></div>
</div><div><div><i>theMain$6 v-1345597973 (FtheMain$6)</i></div></div><div><div><i>-- eval ni70382562 WHNF-[CJhc.Addr.Ptr]</i></div></div><div><div><i>-- eval ni240266248 WHNF-[CGraphics.UI.SDL.Events.SDLVideoResize,CGraphics.UI.SDL.Events.SDLSysWMEvent,CGraphics.UI.SDL.Events.SDLQuit,CGraphics.UI.SDL.Events.SDLJoyButtonUp,CGraphics.UI.SDL.Events.SDLJoyButtonDown,CGraphics.UI.SDL.Events.SDLJoyHatMotion,CGraphics.UI.SDL.Events.SDLJoyBallMotion,CGraphics.UI.SDL.Events.SDLJoyAxisMotion,CGraphics.UI.SDL.Events.SDLMouseButtonUp,CGraphics.UI.SDL.Events.SDLMouseButtonDown,CGraphics.UI.SDL.Events.SDLMouseMotion,CGraphics.UI.SDL.Events.SDLKeyUp,CGraphics.UI.SDL.Events.SDLKeyDown,CGraphics.UI.SDL.Events.SDLActiveEvent,CGraphics.UI.SDL.Events.SDLNoEvent,CGraphics.UI.SDL.Events.SDLUserEvent]</i></div>
</div><div><div><i>-- eval ni230871714 WHNF-[CGraphics.UI.SDL.Keysym.Keysym]</i></div></div><div><div><i>-- eval ni66805364 WHNF-[CGraphics.UI.SDL.Keysym.Keysym]</i></div></div><div><div><i>-- eval ni735449157 WHNF-[P3_W@.fInstance@.iForeign.Storable.peek.Graphics.UI.SDL.Events.Event$2,P3_W@.fInstance@.iForeign.Storable.peek.Graphics.UI.SDL.Events.Event$3]</i></div>
</div><div><div><i>-- eval ni166760994 WHNF-[CInt#]</i></div></div><div><div><i>-- eval ni23258552 WHNF-[CJhc.Prim.[],CJhc.Prim.:]</i></div></div><div><div><i>-- eval ni49754508 WHNF-[CJhc.Maybe.Nothing,CJhc.Maybe.Just]</i></div>
</div><div><div><i>-- eval ni78697292 WHNF-[CWord32#]</i></div></div><div><div><i>-- eval ni174292042 WHNF-[CJhc.Maybe.Nothing,CJhc.Maybe.Just]</i></div></div><div><div><i>-- eval ni813569055 WHNF-[P2_Graphics.UI.SDL.Video.fillRect$2]</i></div>
</div><div><div><i>-- eval ni1055524921 WHNF-[P2_Foreign.C.String.withCString$2,P2_Foreign.Marshal.Utils.with$2,P2_Graphics.UI.SDL.Events.228_wait]</i></div></div><div><div><i>-- eval ni2300728 WHNF-[CJhc.Addr.Ptr]</i></div>
</div><div><div><i>-- eval ni70310210 WHNF-[CJhc.Basics.(,)]</i></div></div><div><div><i>-- eval ni1503142939 WHNF-[?]</i></div></div><div><div><i>-- eval ni21331994 WHNF-[CJhc.Prim.[],CJhc.Prim.:]</i></div></div><div><div>
<i>-- eval ni15337342 WHNF-[CGraphics.UI.SDL.Events.Focus#,CGraphics.UI.SDL.Keysym.Modifier#]</i></div></div><div><div><i>-- eval ni110932008 WHNF-[CGraphics.UI.SDL.Events.Focus#,CGraphics.UI.SDL.Keysym.Modifier#]</i></div>
</div><div><div><i>-- eval ni106881404 WHNF-[CWord32#,CWord8#]</i></div></div><div><div><i>-- eval ni106881404 WHNF-[CWord32#,CWord8#]</i></div></div><div><div><i>-- eval ni1809191493 WHNF-[CWord32#,CWord8#]</i></div></div>
<div><div><i>-- eval ni1809191493 WHNF-[CWord32#,CWord8#]</i></div></div><div><div><i>-- eval ni10795820 WHNF-[CWord8#]</i></div></div><div><div><i>-- eval ni174120830 WHNF-[CGraphics.UI.SDL.Events.Focus#,CGraphics.UI.SDL.Keysym.Modifier#]</i></div>
</div><div><div><i>-- eval ni3774298 WHNF-[CGraphics.UI.SDL.Events.Focus#,CGraphics.UI.SDL.Keysym.Modifier#]</i></div></div><div><div><i>-- eval ni217071266 WHNF-[P2_Main.display$7,P2_Graphics.UI.SDL.Video.fillRect$4]</i></div>
</div><div><div><i>-- eval ni100884800 WHNF-[P2_theMain$5,P2_theMain$3,P2_theMain$4,P2_theMain$2]</i></div></div><div><div><i>-- eval ni185293000 WHNF-[CJhc.Addr.Ptr]</i></div></div><div><div><i>-- apply nd100122 WHNF-[P2_Graphics.UI.SDL.Video.fillRect$2]</i></div>
</div><div><div><i>(fMain.display$6,1) -&gt; S</i></div></div><div><div><i>(fMain.display$4,0) -&gt; S</i></div></div><div><div><i>(fGraphics.UI.SDL.General.failWithError$2,0) -&gt; S</i></div></div><div><div><i>(fGraphics.UI.SDL.Video.fillRect,1) -&gt; S</i></div>
</div><div><div><i>(fGraphics.UI.SDL.Video.fillRect,2) -&gt; S</i></div></div><div><div><i>(fGraphics.UI.SDL.Video.fillRect$4,0) -&gt; S</i></div></div><div><div><i>(fForeign.C.String.withCString,1) -&gt; S</i></div></div>
<div><div><i>(fForeign.Marshal.Utils.with,1) -&gt; S</i></div></div><div><div><i>(fForeign.Marshal.Alloc.alloca,0) -&gt; S</i></div></div><div><div><i>(fForeign.Marshal.Alloc.alloca,1) -&gt; S</i></div></div><div><div><i>(fW@.fForeign.Marshal.Alloc.allocaBytes,1) -&gt; S</i></div>
</div><div><div><i>(fInstance@.iJhc.Show.show.default,0) -&gt; S</i></div></div><div><div><i>(fGraphics.UI.SDL.Utilities.fromBitmask$9,0) -&gt; S</i></div></div><div><div><i>(fGraphics.UI.SDL.Utilities.fromBitmask$9,1) -&gt; S</i></div>
</div><div><div><i>(fGraphics.UI.SDL.Utilities.fromBitmask$6,0) -&gt; S</i></div></div><div><div><i>(fGraphics.UI.SDL.Utilities.fromBitmask$5,0) -&gt; S</i></div></div><div><div><i>(fGraphics.UI.SDL.Utilities.fromBitmask$4,1) -&gt; S</i></div>
</div><div><div><i>(fGraphics.UI.SDL.Utilities.fromBitmask$4,2) -&gt; S</i></div></div><div><div><i>(fGraphics.UI.SDL.Utilities.fromBitmask$2,0) -&gt; S</i></div></div><div><div><i>(fInstance@.iGraphics.UI.SDL.Utilities.toEnum.Graphics.UI.SDL.Events.MouseButton,0) -&gt; S</i></div>
</div><div><div><i>(fGraphics.UI.SDL.Utilities.fromEnum,0) -&gt; S</i></div></div><div><div><i>(fGraphics.UI.SDL.Utilities.fromEnum,1) -&gt; S</i></div></div><div><div><i>(fGraphics.UI.SDL.Utilities.fromBitmask$7,0) -&gt; S</i></div>
</div><div><div><i>(fGraphics.UI.SDL.Utilities.fromBitmask$7,1) -&gt; S</i></div></div><div><div><i>(fForeign.Marshal.Utils.with$2,0) -&gt; S</i></div></div><div><div><i>(fW@.fInstance@.iForeign.Storable.pokeElemOff.default,0) -&gt; S</i></div>
</div><div><div><i>(fW@.fInstance@.iForeign.Storable.pokeByteOff.default,0) -&gt; S</i></div></div><div><div><i>(fForeign.Storable.poke,0) -&gt; S</i></div></div><div><div><i>(fForeign.Storable.poke,1) -&gt; S</i></div></div>
<div><div><i>(fForeign.C.String.withCString$2,0) -&gt; S</i></div></div><div><div><i>(fW@.fGraphics.UI.SDL.Events.peekMouse,0) -&gt; S</i></div></div><div><div><i>(bapply_36712,0) -&gt; S</i></div></div><div><div><i>(bapply_36713,0) -&gt; S</i></div>
</div><div><div><i>r34 -&gt; S</i></div></div><div><div><i>r39 -&gt; S</i></div></div><div><div><i>r40 -&gt; S</i></div></div><div><div><i>r41 -&gt; S</i></div></div><div><div><i>r42 -&gt; S</i></div></div><div><div><i>r85 -&gt; S</i></div>
</div><div><div><i>r86 -&gt; S</i></div></div><div><div><i>r87 -&gt; S</i></div></div><div><div><i>r88 -&gt; S</i></div></div><div><div><i>r89 -&gt; S</i></div></div><div><div><i>r123 -&gt; S</i></div></div><div><div><i>r124 -&gt; S</i></div>
</div><div><div><i>r125 -&gt; S</i></div></div><div><div><i>r126 -&gt; S</i></div></div><div><div><i>r131 -&gt; S</i></div></div><div><div><i>r133 -&gt; S</i></div></div><div><div><i>r136 -&gt; S</i></div></div><div><div>
<i>r137 -&gt; S</i></div></div><div><div><i>r138 -&gt; S</i></div></div><div><div><i>r139 -&gt; S</i></div></div><div><div><i>r140 -&gt; S</i></div></div><div><div><i>Writing &quot;test_code.c&quot;</i></div></div><div><div>
<i>Running: gcc &#39;-std=gnu99&#39; -D_GNU_SOURCE &#39;-falign-functions=4&#39; -ffast-math -Wextra -Wall -Wno-unused-parameter -o test test_code.c -DNDEBUG -O3 -I/opt/local/include/SDL &#39;-D_GNU_SOURCE=1&#39; -D_THREAD_SAFE -L/opt/local/lib -lSDLmain -lSDL &#39;-Wl,-framework,Cocoa&#39;</i></div>
</div><div><div><i>test_code.c: In function ‘fForeign_C_String_withCString’:</i></div></div><div><div><i>test_code.c:4297: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c: In function ‘fForeign_Marshal_Utils_with’:</i></div>
</div><div><div><i>test_code.c:4404: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c:4409: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c: In function ‘fGraphics_UI_SDL_Events_waitEventBlocking$d2’:</i></div>
</div><div><div><i>test_code.c:4571: warning: implicit declaration of function ‘SDL_WaitEvent’</i></div></div><div><div><i>test_code.c: In function ‘fGraphics_UI_SDL_General_failWithError’:</i></div></div><div><div><i>test_code.c:4598: warning: implicit declaration of function ‘SDL_GetError’</i></div>
</div><div><div><i>test_code.c:4599: error: ‘v74’ undeclared (first use in this function)</i></div></div><div><div><i>test_code.c:4599: error: (Each undeclared identifier is reported only once</i></div></div><div><div><i>test_code.c:4599: error: for each function it appears in.)</i></div>
</div><div><div><i>test_code.c: In function ‘fGraphics_UI_SDL_Video_fillRect’:</i></div></div><div><div><i>test_code.c:5341: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c:5345: warning: initialization from incompatible pointer type</i></div>
</div><div><div><i>test_code.c: In function ‘fGraphics_UI_SDL_Video_fillRect$d2’:</i></div></div><div><div><i>test_code.c:5360: warning: implicit declaration of function ‘SDL_FillRect’</i></div></div><div><div><i>test_code.c: In function ‘fGraphics_UI_SDL_Video_fillRect$d3’:</i></div>
</div><div><div><i>test_code.c:5370: warning: comparison between signed and unsigned</i></div></div><div><div><i>test_code.c: In function ‘fMain_display’:</i></div></div><div><div><i>test_code.c:5757: warning: implicit declaration of function ‘SDL_GetVideoSurface’</i></div>
</div><div><div><i>test_code.c:5764: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c:5767: warning: assignment from incompatible pointer type</i></div></div><div><div><i>test_code.c:5781: warning: implicit declaration of function ‘SDL_MapRGB’</i></div>
</div><div><div><i>test_code.c:5784: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c:5787: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c:5813: warning: initialization from incompatible pointer type</i></div>
</div><div><div><i>test_code.c:5824: warning: implicit declaration of function ‘SDL_Flip’</i></div></div><div><div><i>test_code.c: In function ‘fMain_display$d7’:</i></div></div><div><div><i>test_code.c:5879: warning: implicit declaration of function ‘SDL_UpperBlit’</i></div>
</div><div><div><i>test_code.c: In function ‘fMain_display$d8’:</i></div></div><div><div><i>test_code.c:5889: warning: comparison between signed and unsigned</i></div></div><div><div><i>test_code.c: In function ‘fW$__fInstance$__iForeign_Storable_pokeByteOff_default’:</i></div>
</div><div><div><i>test_code.c:7802: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c: In function ‘fW$__fInstance$__iForeign_Storable_pokeElemOff_default’:</i></div></div><div>
<div><i>test_code.c:7818: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c:7829: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c:7840: warning: initialization from incompatible pointer type</i></div>
</div><div><div><i>test_code.c:7851: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c: In function ‘ftheMain’:</i></div></div><div><div><i>test_code.c:8147: warning: implicit declaration of function ‘SDL_SetVideoMode’</i></div>
</div><div><div><i>test_code.c:8154: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c:8157: warning: assignment from incompatible pointer type</i></div></div><div><div><i>test_code.c:8167: warning: statement with no effect</i></div>
</div><div><div><i>test_code.c:8170: warning: implicit declaration of function ‘SDL_EnableUNICODE’</i></div></div><div><div><i>test_code.c:8185: warning: implicit declaration of function ‘SDL_LoadBMP_RW’</i></div></div><div>
<div><i>test_code.c:8192: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c:8195: warning: assignment from incompatible pointer type</i></div></div><div><div><i>test_code.c:8235: warning: statement with no effect</i></div>
</div><div><div><i>test_code.c:8240: warning: statement with no effect</i></div></div><div><div><i>test_code.c:8249: warning: statement with no effect</i></div></div><div><div><i>test_code.c:8254: warning: statement with no effect</i></div>
</div><div><div><i>test_code.c: In function ‘ftheMain$d2’:</i></div></div><div><div><i>test_code.c:8269: warning: implicit declaration of function ‘SDL_WM_SetCaption’</i></div></div><div><div><i>test_code.c: In function ‘ftheMain$d3’:</i></div>
</div><div><div><i>test_code.c:8282: warning: initialization from incompatible pointer type</i></div></div><div><div><i>test_code.c: In function ‘ftheMain$d4’:</i></div></div><div><div><i>test_code.c:8293: warning: implicit declaration of function ‘SDL_RWFromFile’</i></div>
</div><div><div><i>test_code.c: In function ‘ftheMain$d5’:</i></div></div><div><div><i>test_code.c:8317: warning: initialization from incompatible pointer type</i></div></div><div><div><i>jhc: user error (C code did not compile.)</i></div>
</div></blockquote><div><div><br></div></div>