Re: Re Passing double floats to an external dll

From: Mike Ghan <MikeGhan_at_logix-controls.com>
Date: Thu, 26 Oct 2006 14:04:44 -0700

I have a simple testbed for FreeImage at

http://www.logix-controls.com/SwiftForth/FreeImage.htm

HTH
Mike

-----Original Message-----
From: sftalk-bounce_at_forth.com [mailto:sftalk-bounce_at_forth.com] On Behalf
Of Smith, Roland A
Sent: Thursday, October 26, 2006 1:50 PM
To: sftalk_at_forth.com
Subject: [sftalk] Re: Re Passing double floats to an external dll

Hi Charles

>> Calls to a function requiring a float argument. eg
>>
>> 2 Import: _FreeImage_RotateClassic_at_12 ( addr Dfloat -- bool )
>
>
> \ so far I remember, Dfloat is like two parameters:
>
> 3 IMPORT: _FreeImage_RotateClassic_at_12 ( addr 2*float -- bool )
>
> : RotateClassic ( s: addr -- bool )( f: radius -- )
> 1dfparms _FreeImage_RotateClassic_at_12 ;
>

Ah ! That fixes things very nicely thank you. Interestingly the
equivalent Win32For code has an import line :-

2 proc _FreeImage_RotateClassic_at_12 as FIRotate

which threw me off a bit.

Cheers, Roland

----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com
For list command help, send subject "help" to sftalk-request_at_forth.com
Message archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users. For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------

----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com
For list command help, send subject "help" to sftalk-request_at_forth.com
Message archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users. For product support and
bug reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Thu Oct 26 2006 - 14:06:01 PDT


Subscribe to our e-mail list service. It's free for all SwiftForth and SwiftX users!

This archive was generated 09-Feb-2012. Archive updated nightly.