Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Multiprozessing mag keinen Inline-Assembler
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   09.10.18 16:37

Ginge das mit einem Namensraum nicht eleganter ?
In der Include :

 ASM "Mul64", 2
     JMP Start
  Ergebnis_Re:
     DQ 0
  Ergebnis_Im:
     DQ 0
  Start:
     MOV EAX, par1
     MOV EBX, par2
     FLD QWORD PTR [EAX]
     FLD QWORD PTR [EBX]
     FMUL
     FLD QWORD PTR [EBX+8]
     FLD QWORD PTR [EAX+8]
     FMUL
     FSUB
     FSTP QWORD PTR [Ergebnis_Re]
     FLD QWORD PTR [EAX+8]
     FLD QWORD PTR [EBX]
     FMUL
     FLD QWORD PTR [EBX+8]
     FLD QWORD PTR [EAX]
     FMUL
     FADD
     FSTP QWORD PTR [Ergebnis_IM]
     MOV EAX, Ergebnis_RE
  ENDASM
 
  proc c_build_ab
  parameters double za, zb
  declare memory rw : dim rw, complex
    float rw,0 = za
    float rw,8 = zb
    return rw
  endproc
 
 proc ?_c_mul
 parameters memory zx1,zx2
 declare pointer P
  P = Mul64(zx1,zx2)
  return c_build_ab(Float(P,0),Float(p,8))
 endproc
 


und in den einzelnen Prozessen halt

 $I meineinc.inc = irgendwas_
 
 Ergebnis = irgendwas_c_mul(ber1, ber2)
 


Sowas wäre doch übersichtlicher.

PS:
Was schreibst du denn genau in die FileMap ?

Wenn das nur zwei Zahlen sind, geht das auch einfacher mit
SendMessage in den Prozessen. Die Zahlen bekommt man in
wParam und lParam ja unter. Du mußt nur bei pExec der Proc's
das Handle deines Hauptfensters (%HWnd) mitgeben.

Im Hauptprogramm definierst du eine Usermessage und fragst
sie in der Ereignisschleife ab (%UMessage) . In den Prozessen
kannst du dann mit
SendMessage(übergebenesFenster, Message, wParam, lParam)
dein Hauptprogramm informieren. Das ist auch interessant, wenn
man nicht weiß, wann ein Prozess fertig ist. Dieser informiert bei
Fertig das Hauptfenster und gibt noch ggf. 2 Long-Parameter mit.

H.Brill
XProfan X4 + FreeProfan

Nachricht bearbeitet (09.10.18 17:05)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Multiprozessing mag keinen Inline-Assembler  Neu
Arndt Lindner 06.10.18 17:09 
 Re: Multiprozessing mag keinen Inline-Assembler  Neu
Michael Wodrich 07.10.18 20:34 
 Re: Multiprozessing mag keinen Inline-Assembler  Neu
Heinz Brill 08.10.18 07:54 
 Re: Multiprozessing mag keinen Inline-Assembler  Neu
Arndt Lindner 08.10.18 10:50 
 Re: Multiprozessing mag keinen Inline-Assembler  Neu
Heinz Brill 08.10.18 14:04 
 Re: Multiprozessing mag keinen Inline-Assembler  Neu
Arndt Lindner 08.10.18 19:47 
 Re: Multiprozessing mag keinen Inline-Assembler  Neu
Heinz Brill 09.10.18 16:37 
 Re: Multiprozessing mag keinen Inline-Assembler  Neu
Arndt Lindner 09.10.18 19:11 
 Re: Multiprozessing mag keinen Inline-Assembler  Neu
Heinz Brill 09.10.18 19:46 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org