From 3aad4d2fe81022e67e3a1f59b86bf3b7756f7654 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Thu, 17 Sep 2009 09:55:09 -0500 Subject: [PATCH] more loading fixes --- extra/alien/marshall/marshall.factor | 2 +- extra/freetype/freetype.factor | 2 +- extra/jamshred/gl/gl.factor | 1 + extra/synth/buffers/buffers.factor | 1 + 4 files changed, 4 insertions(+), 2 deletions(-) diff --git a/extra/alien/marshall/marshall.factor b/extra/alien/marshall/marshall.factor index e8ea0d3754..d343da0fe0 100644 --- a/extra/alien/marshall/marshall.factor +++ b/extra/alien/marshall/marshall.factor @@ -23,7 +23,7 @@ SPECIALIZED-ARRAY: ushort SPECIALIZED-ARRAY: void* IN: alien.marshall -<< primitive-types [ [ "void*" = ] [ "bool" = ] bi or not ] +<< primitive-types [ [ void* = ] [ bool = ] bi or not ] filter [ define-primitive-marshallers ] each >> TUPLE: alien-wrapper { underlying alien } ; diff --git a/extra/freetype/freetype.factor b/extra/freetype/freetype.factor index c45475cefa..0bfaae9853 100644 --- a/extra/freetype/freetype.factor +++ b/extra/freetype/freetype.factor @@ -23,7 +23,7 @@ TYPEDEF: ushort FT_UShort TYPEDEF: long FT_Long TYPEDEF: ulong FT_ULong TYPEDEF: uchar FT_Bool -TYPEDEF: cell FT_Offset +TYPEDEF: ulong FT_Offset TYPEDEF: int FT_PtrDist TYPEDEF: char FT_String TYPEDEF: int FT_Tag diff --git a/extra/jamshred/gl/gl.factor b/extra/jamshred/gl/gl.factor index 1a03a2c941..60e9e39d9f 100644 --- a/extra/jamshred/gl/gl.factor +++ b/extra/jamshred/gl/gl.factor @@ -4,6 +4,7 @@ USING: accessors alien.c-types jamshred.game jamshred.oint jamshred.player jamshred.tunnel kernel math math.constants math.functions math.vectors opengl opengl.gl opengl.glu opengl.demo-support sequences specialized-arrays ; +FROM: alien.c-types => float ; SPECIALIZED-ARRAY: float IN: jamshred.gl diff --git a/extra/synth/buffers/buffers.factor b/extra/synth/buffers/buffers.factor index 71b05ac642..978fb32d42 100644 --- a/extra/synth/buffers/buffers.factor +++ b/extra/synth/buffers/buffers.factor @@ -2,6 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors alien.c-types combinators kernel locals math math.ranges openal sequences sequences.merged specialized-arrays ; +FROM: alien.c-types => short ; SPECIALIZED-ARRAY: uchar SPECIALIZED-ARRAY: short IN: synth.buffers