3.36.08

nidud · Dec 3, 2024 · 764fc59 · 764fc59
1 parent 908f1cf
commit 764fc59
Show file tree

Hide file tree

Showing 19 changed files with 169 additions and 211 deletions.
diff --git a/bin/asmc.exe b/bin/asmc.exe
diff --git a/bin/asmc64.exe b/bin/asmc64.exe
diff --git a/bin/dz.exe b/bin/dz.exe
diff --git a/bin/dz.txt b/bin/dz.txt
@@ -2,9 +2,9 @@ DZ.TXT--
 Copyright (C) 2024 Doszip Developers.
 
 DOSZIP COMMANDER
-Version 3.73
+Version 3.76
 
-Welcome to Doszip Commander Version 3.73!
+Welcome to Doszip Commander Version 3.76!
 =========================================
 
 

diff --git a/source/asmc/inc/asmc.inc b/source/asmc/inc/asmc.inc
@@ -461,11 +461,11 @@ define SIT_FILE         0
 define SIT_MACRO        1
 
 .enum avx_encoding {
-    PREFER_FIRST = 0x00,    ; Use first defined form if possible.
-    PREFER_VEX   = 0x01,    ; Use VEX encoding in preference to EVEX encoding.
-    PREFER_VEX3  = 0x02,    ; Use 3-byte VEX encoding in preference to EVEX encoding.
-    PREFER_EVEX  = 0x04,    ; Use EVEX encoding in preference to VEX encoding.
-    NO_EVEX      = 0x08,    ; Don't encode using EVEX.
+    PREFER_FIRST    = 0x00,    ; Use first defined form if possible.
+    PREFER_VEX      = 0x01,    ; Use VEX encoding in preference to EVEX encoding.
+    PREFER_VEX3     = 0x02,    ; Use 3-byte VEX encoding in preference to EVEX encoding.
+    PREFER_EVEX     = 0x04,    ; Use EVEX encoding in preference to VEX encoding.
+    NO_EVEX         = 0x08,    ; Don't encode using EVEX.
     }
 
 .template qditem
@@ -500,18 +500,18 @@ define SIT_MACRO        1
 
 
 .template format_options
-    init            proc local fastcall :ptr module_info
+    init            proc local
     invalid_fixup_type sword ?
     formatname      char_t 6 dup(?)
    .ends
 
 .template com_item
-    cmd         dd ?
-    class       string_t ?
-    langtype    dd ?
-    publsym     ptr asym ?  ; .class name : public class
-    method      dd ?        ; .INLINE/.OPERATOR/.STATIC
-    sym         ptr asym ?  ; set by StructDirective()
+    cmd             dd ?
+    class           string_t ?
+    langtype        dd ?
+    publsym         ptr asym ?  ; .class name : public class
+    method          dd ?        ; .INLINE/.OPERATOR/.STATIC
+    sym             ptr asym ?  ; set by StructDirective()
    .ends
 
 define PE_SUBSYSTEM_NATIVE  0x01
@@ -632,9 +632,9 @@ define PE_DLL               0x04
     anonymous_label         uint_t ?        ; "anonymous label" counter
     StackBase               ptr asym ?
     ProcStatus              ptr asym ?
-    WriteModule             proc local __ccall :ptr module_info
-    EndDirHook              proc local fastcall :ptr module_info
-    Pass1Checks             proc local fastcall :ptr module_info
+    WriteModule             proc local
+    EndDirHook              proc local
+    Pass1Checks             proc local
     pe_flags                uint_t ?
     maxlinelen              uint_t ?
     currsource              string_t ?      ; current source line

diff --git a/source/asmc/inc/bin.inc b/source/asmc/inc/bin.inc
@@ -8,7 +8,7 @@
 ifndef __BIN_INC
 define __BIN_INC
 
-bin_init            proto fastcall :ptr module_info
+bin_init            proto
 pe_create_PE_header proto
 
 endif
diff --git a/source/asmc/inc/coff.inc b/source/asmc/inc/coff.inc
@@ -41,6 +41,6 @@ define __COFF_INC
     size            dd ?
    .ends
 
-coff_init proto fastcall :ptr module_info
+coff_init proto
 
 endif
diff --git a/source/asmc/inc/elf.inc b/source/asmc/inc/elf.inc
@@ -8,6 +8,6 @@
 ifndef __ELF_INC
 define __ELF_INC
 
-elf_init proto fastcall :ptr module_info
+elf_init proto __ccall
 
 endif
diff --git a/source/asmc/inc/omf.inc b/source/asmc/inc/omf.inc
@@ -12,7 +12,7 @@ define __OMF_INC
 
 MAX_LEDATA_THRESHOLD equ (1024 - 10)
 
-omf_init            proto fastcall :ptr module_info
+omf_init            proto
 omf_set_filepos     proto
 omf_OutSelect       proto fastcall :int_t
 omf_FlushCurrSeg    proto

diff --git a/source/asmc/inc/version.inc b/source/asmc/inc/version.inc
@@ -5,6 +5,6 @@ define ASMC_VERSION         236
 
 define ASMC_MAJOR_VER       2
 define ASMC_MINOR_VER       36
-define ASMC_SUBMINOR_VER    7
+define ASMC_SUBMINOR_VER    8
 
 endif
diff --git a/source/asmc/src/assemble.asm b/source/asmc/src/assemble.asm
@@ -306,7 +306,7 @@ SetCurrOffset endp
 ;
 ; write object module
 ;
-WriteModule proc __ccall private uses rsi rdi rbx modinfo:ptr module_info
+WriteModule proc private uses rsi rdi rbx
 
     mov rbx,SymTables[TAB_SEG*symbol_queue].head
 
@@ -324,7 +324,7 @@ WriteModule proc __ccall private uses rsi rdi rbx modinfo:ptr module_info
         mov rbx,[rbx].dsym.next
     .endw
 
-    modinfo.WriteModule(modinfo)
+    ModuleInfo.WriteModule()
 
     mov rbx,Options.names[OPTN_LNKDEF_FN*string_t]
     .if rbx
@@ -845,7 +845,7 @@ aliases:
         .endif
 
         .if ( ModuleInfo.Pass1Checks )
-            ModuleInfo.Pass1Checks( &ModuleInfo )
+            ModuleInfo.Pass1Checks()
         .endif
     .endif
     ret
@@ -1025,7 +1025,7 @@ ModuleInit proc private
     rep stosb
     mov rdi,rdx
 
-    fm.init( &ModuleInfo )
+    fm.init()
     ret
 
 ModuleInit endp
@@ -1443,7 +1443,7 @@ AssembleModule proc __ccall uses rsi rdi rbx source:string_t
 
     .if ( Parse_Pass > PASS_1 && write_to_file )
 
-        WriteModule( &ModuleInfo )
+        WriteModule()
     .endif
     LstWriteCRef()