[offen] Kompilieren für x86 ?

**BugFix** · 27. Mai 2020

Ich habe mal etwas probiert, um Programme sowohl für 32bit, als auch für 64bit zu erstellen.

x64 ist Standard und somit kein Problem.

Laut Beschreibung "Use --cpu:i386 or --cpu:amd64 to switch the CPU architecture." sollte also mit --cpu:i386 eine 32bit Version erstellt werden können. (Wobei der Schalter ja auf die CPU Architektur ausgerichtet ist. x86-CPU habe ich schon seit Jahren nicht mehr gesehen, selbst die 8 Jahre alten PC in der Firma haben x64 CPU - Aber: Dort laufen x86-OS!)

Wie muss ich denn ein Programm erstellen, dass auf CPU(x64) mit OS(x86) laufen soll?

Ich wollte jetzt meine Dll-Datei mal als x86 erstellen: nim c --app:lib --cpu:i386 -o:math32.dll math.nim

Das haut mir der Compiler um die Ohren.

Fehlermeldung

**Musashi** · 27. Mai 2020

Eine Googlesuche bzgl. Nim liefert i.d.R. ja recht überschaubare Ergebnisse .

Diesen Thread hast Du sicher bereits selbst gefunden, oder ?

**BugFix** · 27. Mai 2020

Zitat von Musashi

Diesen Thread hast Du sicher bereits selbst gefunden, oder ?

Ja, du brauchst aber keine Threads vor ~2018 ansehen. 90% von dem dort geschriebenen ist inzwischen inhaltlich überholt.

Das, was dort zusätzlich als Einzelparameter übergeben wird, ist inzwischen schon so in der Konfiguration enthalten.

**Bitnugger** · 28. Mai 2020

Wenn ich von hier die Versionen für x86 (nim-1.2.0_x32.zip, mingw32.7z) verwende, dann kann ich die dll mit deinen Parametern zwar erstellen, ohne dass gemeckert wird, aber es funktioniert dann trotzdem nicht in AutoIt, wenn #AutoIt3Wrapper_UseX64=n.

Code

C:\Users\ghost\NIM\@BugFix>nim c --app:lib --cpu:i386 -o:math32.dll math.nim
Hint: used config file 'C:\Users\ghost\scoop\apps\nim\current\config\nim.cfg' [Conf]
Hint: system [Processing]
Hint: widestrs [Processing]
Hint: io [Processing]
Hint: math [Processing]
CC: math.nim
Hint:  [Link]
Hint: 14222 LOC; 1.184 sec; 10.629MiB peakmem; Debug build; proj: C:\Users\ghost\NIM\@BugFix\math.nim; out: C:\Users\ghost\NIM\@BugFix\math32.dll [SuccessX]

C:\Users\ghost\NIM\@BugFix>

Alles anzeigen

**BugFix** · 28. Mai 2020

Zitat von Bitnugger

Wenn ich von hier die Versionen für x86 (nim-1.2.0_x32.zip, mingw32.7z) verwende, dann kann ich die dll mit deinen Parametern zwar erstellen, ohne dass gemeckert wird, aber es funktioniert dann trotzdem nicht in AutoIt, wenn #AutoIt3Wrapper_UseX64=n.

Ja, ich hatte dazu in der VM nim und mingw schon als 32bit installiert um so eine eigene Umgebung zu haben. Da funktioniert auch das Kompilieren, aber die Dll ist nicht nutzbar (@error=1).

Hinzu kommt das Problem des automatisch erstellten Funktions-Namens-Suffix (@8).

**Oscar** · 30. Mai 2020

Ich hab's geschafft, eine 32Bit-Dll zu erstellen und mit AutoIt nutzen zu können. Und zwar habe ich die 32Bit-Version und die 64Bit-Version von mingw gemäß dieser Anleitung installiert: https://github.com/khchen/winim (ganz unten bei: Cross Compile)

Hinweis: <USER> mit eurem Usernamen ersetzen!

Bei mir liegen jetzt also im Verzeichnis c:\Users\<USER>\.choosenim\toolchains\nim-1.2.0\dist\ zusätzlich zum "nimble"-Ordner, die beiden Ordner "mingw64" und "mingw32".

Dann im Verzeichnis c:\Users\<USER>\.choosenim\toolchains\nim-1.2.0\config\ die Datei "nim.cfg" ändern. Ab Zeile 162 muss da jetzt folgendes stehen:

Code

# Configuration for the GNU C/C++ compiler:
@if windows:
  @if i386:
    gcc.path = r"$nim\dist\mingw32\bin"
  @else:
    gcc.path = r"$nim\dist\mingw64\bin"
  @end
  @if gcc or tcc:
    tlsEmulation:on
  @end
@end

Alles anzeigen

Und dann den Compiler mit dieser Zeile starten: nim c -d:release --cpu:i386 -o:math32.dll program.nim

Ja, ganz wichtig, ohne "--app:lib"!

"program.nim" ist die von BugFix erstellte Nim-Dll:

Code

proc addiere(p1, p2: int): int {.stdcall, exportc, dynlib.} =
  p1 + p2

proc subtrahiere(p1, p2: int): int {.stdcall, exportc, dynlib.} =
  p1 - p2

proc multipliziere(p1, p2: int): int {.stdcall, exportc, dynlib.} =
  p1 * p2

proc dividiere(p1, p2: float): float {.stdcall, exportc, dynlib.} =
  p1 / p2

Alles anzeigen

So wurde die Dll zumindest schonmal in AutoIt erfolgreich geladen.

Im Hex-Editor habe ich dann die "falschen" Funktionsnamen gesehen (wie BugFix schon schrieb). Also habe ich in AutoIt die Funktionen auch mit diesen "falschen" Namen aufgerufen und das funktionierte dann.

AutoIt

#AutoIt3Wrapper_UseX64=n

Local $hDll = DllOpen(@ScriptDir & "\math32.dll")
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hDll = ' & $hDll & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
Local $aRes, $a = 9, $b = 18

$aRes = DllCall($hDll, 'int', 'addiere@8', 'int', $a, 'int', $b)
If Not @error Then ConsoleWrite('addiere ' & $aRes[0] & @CRLF)

$aRes = DllCall($hDll, 'int', 'subtrahiere@8', 'int', $a, 'int', $b)
If Not @error Then ConsoleWrite('subtrahiere ' & $aRes[0] & @CRLF)

$aRes = DllCall($hDll, 'int', 'multipliziere@8', 'int', $a, 'int', $b)
If Not @error Then ConsoleWrite('multipliziere ' & $aRes[0] & @CRLF)

$aRes = DllCall($hDll, 'double', 'dividiere@16', 'double', $a, 'double', $b)
If Not @error Then ConsoleWrite('dividiere ' & $aRes[0] & @CRLF)

DllClose($hDll)

Alles anzeigen

**BugFix** · 30. Mai 2020

Zitat von Oscar

c:\Users\<USER>\.choosenim\toolchains\nim-1.2.0\dist\

Woher stammen diese Pfade, selbst erstellt?

In meiner Installation liegt nim-1.2.0\dist\ im Ordner C:\Users\USER\scoop\apps\nim

**Oscar** · 30. Mai 2020

Zitat von BugFix

Woher stammen diese Pfade, selbst erstellt?

Äh! Nein, nicht selbst erstellt.

Aber wo Du es schreibst, in "scoop" habe ich auch noch ein "nim".

**Bitnugger** · 30. Mai 2020

Bei mir funktioniert es nun auch... nur sehr seltsam, dass es mit --app:lib nicht funktioniert.

Hier hin habe ich die Archive mingw32.7z und mingw64.7z entpackt:

c:\Users\<USER>\scoop\apps\nim\current\dist\

mingw32

mingw64

nimble

Hier die nim.cfg geändert:

Code: c:\Users\<USER>\scoop\apps\nim\current\config\nim.cfg

# Configuration for the GNU C/C++ compiler:
@if windows:
  #gcc.path = r"$nim\dist\mingw\bin"
  @if i386:
    gcc.path = r"$nim\dist\mingw32\bin"
  @else:
    gcc.path = r"$nim\dist\mingw64\bin"
  @end
  @if gcc or tcc:
    tlsEmulation:on
  @end
@end

Alles anzeigen

**BugFix** · 30. Mai 2020

Zitat von Oscar

Im Hex-Editor habe ich dann die "falschen" Funktionsnamen gesehen

Ich habe jetzt mal gesucht, Ursache ist der Linker, der hier die Namen vergibt. Aber ich habe noch keine Möglichkeit gefunden das zu ändern.

**BugFix** · 31. Mai 2022

Zitat von BugFix

Ich habe jetzt mal gesucht, Ursache ist der Linker, der hier die Namen vergibt. Aber ich habe noch keine Möglichkeit gefunden das zu ändern.

Ich habe mich mal wieder mit dem Thema beschäftigt.

Die Namenskonvention sieht vor, dass standardmäßig als Suffix "@" und die Größe der übergeben Parameter an den Funktionsnamen angehängt wird. In C/C++ kann man das dann mit einem .DEF -File umrouten auf den gewünschten Exportnamen. Bei den Nim Pragmas habe ich da aber keine Einstellung für gefunden.

Also bin ich mal von der anderen Seite rangegangen: Automatische Namenskonvertierung beim Aufruf.

Dazu wird die Dll-Funktion mit dem intern verwendeten Namen aufgerufen. Bei x64 ist alles schick. Bei x86 bekomme ich den Fehler "Dll Funktion nicht gefunden". Dann frage ich die Größe der übergebenen Parameter ab und bilde somit den Suffix für den Funktionsnamen und rufe diese erneut auf.

Aufruf, Parameterreihenfolge und Return sind an der Original DllCall-Funktion orientiert. Unterschied: Bei einem Fehler gebe ich als Returnwert "Null" zurück.

Die Funktion kann 6 Parameter übernehmen. Kann man bei Bedarf auch anpassen.

AutoIt

$sDll = @ScriptDir & "\math32.dll"
ConsoleWrite(_CallDLL($sDll, 'int', 'addiere', 'int', 25, 'int', 125)[0] & @CRLF)

Func _CallDll($_vDll, $_RetType, $_sFunc, $_type1=Null, $_param1=Null, $_type2=Null, $_param2=Null, _
              $_type3=Null, $_param3=Null, $_type4=Null, $_param4=Null, $_type5=Null, $_param5=Null, $_type6=Null, $_param6=Null)
    Local $aType[] = [$_type1,$_type2,$_type3,$_type4,$_type5,$_type6]
    Local $countParam = 0, $sStruct = '', $aRes, $error, $tParam
    For $i = 0 To UBound($aType) -1
        If $aType[$i] <> Null Then
            $countParam += 1
            $sStruct &= $aType[$i] & ';'
        Else
            ExitLoop
        EndIf
    Next
    Switch $countParam
        Case 0
            $aRes = DllCall($_vDll, $_RetType, $_sFunc)
        Case 1
            $aRes = DllCall($_vDll, $_RetType, $_sFunc, $_type1, $_param1)
        Case 2
            $aRes = DllCall($_vDll, $_RetType, $_sFunc, $_type1, $_param1, $_type2, $_param2)
        Case 3
            $aRes = DllCall($_vDll, $_RetType, $_sFunc, $_type1, $_param1, $_type2, $_param2, $_type3, $_param3)
        Case 4
            $aRes = DllCall($_vDll, $_RetType, $_sFunc, $_type1, $_param1, $_type2, $_param2, $_type3, $_param3, $_type4, $_param4)
        Case 5
            $aRes = DllCall($_vDll, $_RetType, $_sFunc, $_type1, $_param1, $_type2, $_param2, $_type3, $_param3, $_type4, $_param4, $_type5, $_param5)
        Case 6
            $aRes = DllCall($_vDll, $_RetType, $_sFunc, $_type1, $_param1, $_type2, $_param2, $_type3, $_param3, $_type4, $_param4, $_type5, $_param5, $_type6, $_param6)
    EndSwitch
    $error = @error
    If Not $error Then Return $aRes
    If $error = 3 Then  ; "function" not found in the DLL file
        $tParam = DllStructCreate($sStruct)
        $_sFunc &= '@' & String(DllStructGetSize($tParam))
        Switch $countParam
            Case 0
                $aRes = DllCall($_vDll, $_RetType, $_sFunc)
            Case 1
                $aRes = DllCall($_vDll, $_RetType, $_sFunc, $_type1, $_param1)
            Case 2
                $aRes = DllCall($_vDll, $_RetType, $_sFunc, $_type1, $_param1, $_type2, $_param2)
            Case 3
                $aRes = DllCall($_vDll, $_RetType, $_sFunc, $_type1, $_param1, $_type2, $_param2, $_type3, $_param3)
            Case 4
                $aRes = DllCall($_vDll, $_RetType, $_sFunc, $_type1, $_param1, $_type2, $_param2, $_type3, $_param3, $_type4, $_param4)
            Case 5
                $aRes = DllCall($_vDll, $_RetType, $_sFunc, $_type1, $_param1, $_type2, $_param2, $_type3, $_param3, $_type4, $_param4, $_type5, $_param5)
            Case 6
                $aRes = DllCall($_vDll, $_RetType, $_sFunc, $_type1, $_param1, $_type2, $_param2, $_type3, $_param3, $_type4, $_param4, $_type5, $_param5, $_type6, $_param6)
        EndSwitch
        $error = @error
        If Not $error Then Return $aRes
        Return SetError($error,0,Null)
    Else
        Return SetError($error,0,Null)
    EndIf
EndFunc

Alles anzeigen

[offen] Kompilieren für x86 ?

Teilen

Ähnliche Themen

RegWrite liefert @error = 1, obwohl RegRead den Wert lesen kann. (Mit Adminrechten)

Kann mein eigenes Programm nicht löschen - von Avira keine Unterstützung...

ini-Datei mit kompilieren?

[Nim] Kompilieren dauert lange