- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
The following libraries have been ported to 64 bits architecture...
1. My ParallelSort library
2. My ParallelGzip inside my parallelcompression library,
but you have to use the zlib1.dll for 64 bits architecture.
3. Lockfree_mpmc
4. Parallelhashlist
5. Threadpool engine.
To compile them, for 64 bits architecture, just open the defines.inc
anduse the following defines:
{$DEFINE CPU64} for 64 bits architecture
{$DEFINE CPU32} for32 bits architecture
You have to use Freepascal for 64 bits architecture
or Lazarus for 64 bits architecture to compilethe
libraries for 64 bits architecture.
You can download those librariesfrom:
Thank you.
Amine Moulay Ramdane.
Link Copied
3 Replies
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Hello,
I have ported those libraries to the 64 bits architecture
and tested those libraries under Windows 2008 64 bits
and they are working correctly.
Thank you,
Amine Moulay Ramdane.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Hello,
Since my threadpool engine is using lockfree_mpmc
I had to port lockfree_mpmc to 64 bits architecture an
this was easy , i had to change two thinks, first i had to
change the longword type to use a qword type(8 bytes types),
and also i had to change the CAS to support the 64 bits architecture.
I have changed also the followinginside my thread pool engine:
Before entering the wait state the worker threads have to do a testlike
this: If ThreadPool.Queues[self.threadcount].count <> 0 Then continue
Like this
--
If ThreadPool.Queues[self.threadcount].count <> 0
Then continue;
If ThreadPool.Queues[self.threadcount].count <> 0
Then continue;
for i:=0 to FThreadpool.Fthreadcount-1 do count:=count+FThreadPool.Queues.count;
if count=0 then
begin
FThreadpool.events[self.threadcount].waitfor(INFINITE);
FThreadpool.events[self.threadcount].resetevent;
end;
---
And thefollowing have been added to Threadpool:
Lock-free_mpmc - flqueue that i have modified, enhanced and improved... -
1. It uses a lock-free queue for each worker thread and it uses work-stealing - for more efficiency -
2. The worker threads enters in a wait state when there is no job in the lock-free queues - for more efficiency -
3. You can distribute your jobs to the worker threads and call any method with the threadpool's execute() method.
Here is thefirst change for 64 bits architecture in lockfree_mpmc:
begin
FThreadpool.events[self.threadcount].waitfor(INFINITE);
FThreadpool.events[self.threadcount].resetevent;
end;
---
And thefollowing have been added to Threadpool:
Lock-free_mpmc - flqueue that i have modified, enhanced and improved... -
1. It uses a lock-free queue for each worker thread and it uses work-stealing - for more efficiency -
2. The worker threads enters in a wait state when there is no job in the lock-free queues - for more efficiency -
3. You can distribute your jobs to the worker threads and call any method with the threadpool's execute() method.
Here is thefirst change for 64 bits architecture in lockfree_mpmc:
--
type
{$IFDEF CPU64}
long = qword;
{$ENDIF CPU64}
{$IFDEF CPU32}
long = longword;
{$ENDIF CPU32}
---
type
{$IFDEF CPU64}
long = qword;
{$ENDIF CPU64}
{$IFDEF CPU32}
long = longword;
{$ENDIF CPU32}
---
and here is the CAS in lockfree_mpmcthat i have changed tosupport
the 64 bits architecture:
--
function CAS(var Target:long;Comp ,Exch : long): boolean;assembler;stdcall;
asm
{$IFDEF CPU64}
mov rax, comp
lock cmpxchg [Target], Exch
setz al
{$ENDIF CPU64}
{$IFDEF CPU32}
mov eax, comp
mov ecx,Target
mov edx,exch
lock cmpxchg [ecx], edx
setz al
{$ENDIF CPU32}
---
--
function CAS(var Target:long;Comp ,Exch : long): boolean;assembler;stdcall;
asm
{$IFDEF CPU64}
mov rax, comp
lock cmpxchg [Target], Exch
setz al
{$ENDIF CPU64}
{$IFDEF CPU32}
mov eax, comp
mov ecx,Target
mov edx,exch
lock cmpxchg [ecx], edx
setz al
{$ENDIF CPU32}
---
And the Object Pascal language was fun fun...
And here is where you can download Lazarus for 64 bits architecture:
http://www.lazarus.freepascal.org/
And here is where you can download Freepascal for 64 bits architecture:
http://www.freepascal.org/
Thank you,
Amine Moulay Ramdane.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Unfortunately, the C programming language does not provide a mechanism for adding new fundamental data types. street map Thus, providing 64-bit addressing and integer arithmetic capabilities involves changing the bindings or mappings of the existing data types, or adding new data types to the language.
Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page