From 5ececd74163ce539e74d23562ae296fde2546e05 Mon Sep 17 00:00:00 2001
From: Robert Pengelly <robertapengelly@hotmail.com>
Date: Fri, 7 Aug 2026 16:32:11 +0100
Subject: [PATCH] Fixed stdcall symbols handling

---
 pe.c | 52 ++++++++++++++++++++++++++++++++++------------------
 1 file changed, 34 insertions(+), 18 deletions(-)

diff --git a/pe.c b/pe.c
index 38b8076..4041305 100644
--- a/pe.c
+++ b/pe.c
@@ -350,7 +350,7 @@ static void parse_def (const char *ifile) {
     char *line, *line_end, *real_line, *caret;
     unsigned long real_line_len;
     
-    unsigned long new_line_number = 1;
+    unsigned long new_line_number = 1, line_number = 1;
     unsigned long newlines;
     
     char *symbol_name, *real_symbol_name;
@@ -372,6 +372,9 @@ static void parse_def (const char *ifile) {
     
     while (!load_line (&line, &line_end, &real_line, &real_line_len, &newlines, fp, &load_line_internal_data)) {
     
+        line_number = new_line_number;
+        new_line_number += newlines + 1;
+        
         caret = (line = skip_whitespace (line));
         
         if (line < line_end) {
@@ -383,19 +386,22 @@ static void parse_def (const char *ifile) {
             
             }
             
-            symbol_name = caret;
-            
             while (isalnum ((int) *caret) || *caret == '_') {
                 caret++;
             }
             
-            line = caret;
+            if (*caret == '@') {
             
-            if (isspace ((int) *line)) {
-                line = skip_whitespace (line + 1);
-            }
+                caret++;
+                
+                while (isdigit ((int) *caret)) {
+                    caret++;
+                }
             
-            *caret = '\0';
+            }
+           
+            symbol_name = xstrndup (line, caret - line);
+            line = skip_whitespace (caret);
             
             if (!has_exports) {
             
@@ -407,6 +413,8 @@ static void parse_def (const char *ifile) {
                 }
                 
                 has_exports = 1;
+                
+                free (symbol_name);
                 continue;
             
             }
@@ -414,7 +422,7 @@ static void parse_def (const char *ifile) {
             if (*line == '=') {
             
                 real_symbol_name = symbol_name;
-                caret = skip_whitespace (line + 1);
+                caret = (line = skip_whitespace (line + 1));
                 
                 if (!isalnum ((int) *caret) && *caret != '_') {
                 
@@ -423,28 +431,36 @@ static void parse_def (const char *ifile) {
                 
                 }
                 
-                symbol_name = caret;
-                
                 while (isalnum ((int) *caret) || *caret == '_') {
                     caret++;
                 }
                 
-                line = caret;
+                if (*caret == '@') {
+                
+                    caret++;
+                    
+                    while (isdigit ((int) *caret)) {
+                        caret++;
+                    }
                 
-                if (isspace ((int) *line)) {
-                    line = skip_whitespace (line + 1);
                 }
                 
-                *caret = '\0';
+                symbol_name = xstrndup (line, caret - line);
+                line = skip_whitespace (caret);
                 
                 if ((symbol = symbol_find (symbol_name))) {
-                    symbol->real_name = xstrdup (real_symbol_name);
+                
+                    symbol->real_name = real_symbol_name;
+                    export_symbol_callback (symbol);
+                
                 }
             
+            } else if ((symbol = symbol_find (symbol_name))) {
+                export_symbol_callback (symbol);
             }
             
-            if ((symbol = symbol_find (symbol_name))) {
-                export_symbol_callback (symbol);
+            if (*line != '\0' && *line != '\n') {
+                report_at (program_name, 0, REPORT_ERROR, "Stray '%c' on line %lu in %s", *line, line_number, ifile);
             }
         
         }
-- 
2.34.1