Add missing module

Also, remove trailing whitespaces, remove binary file, and fix copyright
year.

diff --git a/compiler/assembler.scm b/compiler/assembler.scm
index 49ff7bc8e902cf5b3e6af80b712652bfb649d6b7..a15858507abb1915136c2eb59bd7e5a46616ffab 100644 (file)
--- a/compiler/assembler.scm
+++ b/compiler/assembler.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -70,7 +70,7 @@
        (memq x '(buffer1 buffer2 result multiplier))))
 
 (define (add-relocation type symbol)
-  (set! relocation-table 
+  (set! relocation-table
         (cons (list current-position type symbol) relocation-table)))
 
 (define (encode-push reg)
@@ -82,7 +82,7 @@
 (define (encode-test reg1 reg2)
   (let ((reg1-code (register->code reg1))
         (reg2-code (register->code reg2)))
-    (u8-list->bytevector 
+    (u8-list->bytevector
      (list #x48 #x85 (logior #xC0 (ash reg2-code 3) reg1-code)))))
 
 (define (encode-mov dest src)
@@ -90,18 +90,18 @@
     ((and (symbol? dest) (symbol? src))
      (let ((dest-code (register->code dest))
            (src-code (register->code src)))
-       (u8-list->bytevector 
-        (list (if (or (>= dest-code 8) (>= src-code 8)) #x4C #x48) 
-              #x89 
-              (logior #xC0 (ash (if (>= src-code 8) (- src-code 8) src-code) 3) 
+       (u8-list->bytevector
+        (list (if (or (>= dest-code 8) (>= src-code 8)) #x4C #x48)
+              #x89
+              (logior #xC0 (ash (if (>= src-code 8) (- src-code 8) src-code) 3)
                       (if (>= dest-code 8) (- dest-code 8) dest-code))))))
     ((and (symbol? dest) (list? src))
      (let ((dest-code (register->code dest))
            (src-reg (car src)))
-       (u8-list->bytevector 
+       (u8-list->bytevector
         (list (if (or (>= dest-code 8) (>= (register->code src-reg) 8)) #x4C #x48)
-              #x8B 
-              (logior #x00 (ash (if (>= dest-code 8) (- dest-code 8) dest-code) 3) 
+              #x8B
+              (logior #x00 (ash (if (>= dest-code 8) (- dest-code 8) dest-code) 3)
                       (if (>= (register->code src-reg) 8) (- (register->code src-reg) 8) (register->code src-reg)))))))
     ((and (eq? dest 'rbp) (eq? src 'rsp))
      (u8-list->bytevector (list #x48 #x89 #xE5)))
@@ -138,14 +138,14 @@
     ((and (list? dest) (= (length dest) 1))
      (let ((dest-reg (car dest))
            (src-code (ymm-register->code src)))
-       (u8-list->bytevector 
-        (list #xC5 #xFC #x28 
-              (logior #x00 
-                      (ash src-code 3) 
+       (u8-list->bytevector
+        (list #xC5 #xFC #x28
+              (logior #x00
+                      (ash src-code 3)
                       (if (>= (register->code dest-reg) 8)
                           (- (register->code dest-reg) 8)
                           (register->code dest-reg)))))))
-    
+
     ;; Case 2: Source is a single-element list (memory operand)
     ((and (list? src) (= (length src) 1))
      (let ((dest-code (ymm-register->code dest))
@@ -156,20 +156,20 @@
              (bytevector-append
               (u8-list->bytevector (list #xC5 #xFC #x29 #x05))
               (make-bytevector 4 0)))
-           (u8-list->bytevector 
-            (list #xC5 #xFC #x29 
-                  (logior #x00 
-                          (ash dest-code 3) 
+           (u8-list->bytevector
+            (list #xC5 #xFC #x29
+                  (logior #x00
+                          (ash dest-code 3)
                           (if (>= (register->code src-reg) 8)
                               (- (register->code src-reg) 8)
                               (register->code src-reg))))))))
-    
+
     ;; Case 3: Both operands are registers
     ((and (symbol? dest) (symbol? src))
      (let ((dest-code (ymm-register->code dest))
            (src-code (ymm-register->code src)))
        (u8-list->bytevector (list #xC5 #xFC #x28 (logior #xC0 (ash src-code 3) dest-code)))))
-    
+
     ;; Error case: Invalid operands
     (else (error "Invalid operands for vmovaps" dest src))))
 
@@ -177,17 +177,17 @@
   (let ((dest-code (ymm-register->code dest))
         (src1-code (ymm-register->code src1))
         (src2-code (ymm-register->code src2)))
-    (u8-list->bytevector 
-     (list #xC5 
+    (u8-list->bytevector
+     (list #xC5
            (logxor #xFC (ash src1-code 3))
-           #x58 
+           #x58
            (logior #xC0 (ash src2-code 3) dest-code)))))
 
 (define (encode-vfmadd132ps dest src1 src2)
   (let ((dest-code (ymm-register->code dest))
         (src1-code (ymm-register->code src1))
         (src2-code (ymm-register->code src2)))
-    (u8-list->bytevector 
+    (u8-list->bytevector
      (list #xC4
            (logxor #xE2 (ash (logand src2-code #x08) 1))
            (logxor #x7D (ash (logand src1-code #x0F) 3))
@@ -201,9 +201,9 @@
     (u8-list->bytevector (list #xC5 #xF4 #x57 (logior #xC0 (ash src2-code 3) dest-code)))))
 
 (define (encode-mod-rm-sib mod-rm reg rm)
-  (u8-list->bytevector 
-   (list (logior (ash mod-rm 6) 
-                 (ash (if (number? reg) reg (register->code reg)) 3) 
+  (u8-list->bytevector
+   (list (logior (ash mod-rm 6)
+                 (ash (if (number? reg) reg (register->code reg)) 3)
                  (if (number? rm) rm (register->code rm))))))
 
 (define (encode-lea instruction)
@@ -286,7 +286,7 @@
   (hash-clear! label-positions)
   (set! relocation-table '())
   (set! current-position #x1000)
-  
+
   ;; First pass: collect label positions
   (for-each
    (lambda (inst)
@@ -294,10 +294,10 @@
        (hash-set! label-positions (cadr inst) current-position))
      (encode-instruction inst))
    instructions)
-  
+
   ;; Second pass: generate code with relocations
   (set! current-position #x1000)
-  (let ((encoded-instructions 
+  (let ((encoded-instructions
          (filter bytevector? (map encode-instruction instructions))))
     (values
      (apply bytevector-append encoded-instructions)

diff --git a/compiler/config.scm b/compiler/config.scm
index a13251b57553abf00eccf10dd34175ebe0b0a68a..ffbdce361b4f5db4bcce8d415aeb392f1c7c1946 100644 (file)
--- a/compiler/config.scm
+++ b/compiler/config.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;

diff --git a/compiler/data-section.scm b/compiler/data-section.scm
index 9861949fdc1fbc79cf565442d8a513eb60493ebb..858128fecb2d34120c9bcc381e68268a07782e00 100644 (file)
--- a/compiler/data-section.scm
+++ b/compiler/data-section.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;

diff --git a/compiler/dynamic-section.scm b/compiler/dynamic-section.scm
index bed070c759c1232dd2fe60341c428dc4421423a2..c3b6555c7ad3a128a82be1f80c8f57cab2b9054e 100644 (file)
--- a/compiler/dynamic-section.scm
+++ b/compiler/dynamic-section.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;

diff --git a/compiler/elf-dynamic-calculator.scm b/compiler/elf-dynamic-calculator.scm
index 3e6c70063db83e87322a08ae7386b4962f558ed7..38bcf5fda5ae1b0a2dc908c2b8411c9523e25468 100644 (file)
--- a/compiler/elf-dynamic-calculator.scm
+++ b/compiler/elf-dynamic-calculator.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -19,6 +19,7 @@
 
 (define-module (elf-dynamic-calculator)
   #:use-module (rnrs bytevectors)
+  #:use-module (srfi srfi-1)
   #:export (calculate-entry-point
             calculate-code-offset
             calculate-num-sections

diff --git a/compiler/elf-header.scm b/compiler/elf-header.scm
index fdafe40621cfd3b5d9136fc8de66138b861399e6..4cc83cdfa2695b7377b413c73fd3521fd988aeeb 100644 (file)
--- a/compiler/elf-header.scm
+++ b/compiler/elf-header.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -24,7 +24,7 @@
 
 ;; ELF Header structure
 (define-record-type <elf-header>
-  (make-elf-header entry-point ph-offset ph-size sh-offset ph-count sh-count 
+  (make-elf-header entry-point ph-offset ph-size sh-offset ph-count sh-count
                    total-size shstrtab-index hash-offset hash-size)
   elf-header?
   (entry-point elf-header-entry-point)
@@ -38,10 +38,10 @@
   (hash-offset elf-header-hash-offset)
   (hash-size elf-header-hash-size))
 
-(define (create-elf-header entry-point program-headers-offset program-headers-size 
+(define (create-elf-header entry-point program-headers-offset program-headers-size
                            section-headers-offset num-program-headers num-sections
                            total-size shstrtab-index hash-offset hash-size)
-  (let ((header (make-elf-header 
+  (let ((header (make-elf-header
                   (max entry-point #x1000)
                   program-headers-offset
                   program-headers-size

diff --git a/compiler/elf-layout-calculator.scm b/compiler/elf-layout-calculator.scm
index 9293ae227a1a965411863fb3d19ebcfaf31b1c44..cd65912f368a6955e1b2b520dd1ec61e00ebaf58 100644 (file)
--- a/compiler/elf-layout-calculator.scm
+++ b/compiler/elf-layout-calculator.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -263,14 +263,14 @@
          (dynstr-size (bytevector-length dynstrtab))
          (symtab-hash (create-symbol-table symbol-addresses label-positions))
          (dynsym-indices (get-dynsym-indices symtab-hash))
-         (total-dynamic-size 
-           (calculate-total-dynamic-size 
-             dynamic-offset 
-             dynamic-size 
-             got-offset 
-             got-size 
-             plt-offset 
-             plt-size 
+         (total-dynamic-size
+           (calculate-total-dynamic-size
+             dynamic-offset
+             dynamic-size
+             got-offset
+             got-size
+             plt-offset
+             plt-size
              bss-size
              alignment))
          (section-headers-offset (calculate-section-headers-offset dynamic-offset total-dynamic-size))

diff --git a/compiler/executable-example.scm b/compiler/executable-example.scm
index 6cb4ae70386cd00df127574191c3816372558bac..b187931577cd3a75cce825776aab74d9a4fd6a39 100644 (file)
--- a/compiler/executable-example.scm
+++ b/compiler/executable-example.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;

diff --git a/compiler/got-plt-section.scm b/compiler/got-plt-section.scm
index 8c6376bfecd54f079bbec69ed65b7b266f69f87c..b34e726c1810f3e9d3b44bcd250a9ae7585a834c 100644 (file)
--- a/compiler/got-plt-section.scm
+++ b/compiler/got-plt-section.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -24,18 +24,18 @@
   (let* ((num-entries 0)
          (got-plt-size (* (+ num-entries 3) 8))  ; 3 reserved entries + num_entries
          (got-plt (make-bytevector got-plt-size 0)))
-    
+
     ; First entry points to the dynamic section (dynamic-addr)
     (bytevector-u64-set! got-plt 0 dynamic-addr (endianness little))
-    
+
     ; Second and third entries are reserved (set to 0)
     (bytevector-u64-set! got-plt 8 0 (endianness little))
     (bytevector-u64-set! got-plt 16 0 (endianness little))
-    
+
     ; Ensure the rest of the entries are correct
     (do ((i 3 (1+ i)))
         ((= i (+ num-entries 3)))
       ; Each GOT entry points to the corresponding PLT entry (plt-addr + 16*i)
       (bytevector-u64-set! got-plt (* i 8) (+ plt-addr (* i 16)) (endianness little)))
-    
+
     got-plt))

diff --git a/compiler/liboutput.so b/compiler/liboutput.so
deleted file mode 100644 (file)
index fa50ed7..0000000
Binary files a/compiler/liboutput.so and /dev/null differ

diff --git a/compiler/linker.scm b/compiler/linker.scm
index 80dbbf5ad045c477ea6974fde88b5a55e4d334a8..4ff913fdf60ee7bd10a718f2cd86f5048b15dd3e 100644 (file)
--- a/compiler/linker.scm
+++ b/compiler/linker.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -28,7 +28,7 @@
     (if (null? lst)
         '()
         (cons (car lst)
-              (remove-duplicates 
+              (remove-duplicates
                (filter (lambda (x) (not (equal? x (car lst))))
                        (cdr lst))))))
 

diff --git a/compiler/note-gnu-build-id-section.scm b/compiler/note-gnu-build-id-section.scm
index f8d79058d224a73313d63bbb7cc2fbf1f438edf6..fde3000724c5dbe67898a496854bc19f0b0736e8 100644 (file)
--- a/compiler/note-gnu-build-id-section.scm
+++ b/compiler/note-gnu-build-id-section.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -52,22 +52,22 @@
          (descriptor-size-aligned (align-to-4 descriptor-size))
          (total-size (+ 12 name-size-aligned descriptor-size-aligned))
          (note-section (make-bytevector total-size 0)))
-    
+
     ;; Write name size (4 bytes, little-endian)
     (bytevector-u32-set! note-section 0 name-size (endianness little))
-    
+
     ;; Write descriptor size (4 bytes, little-endian)
     (bytevector-u32-set! note-section 4 descriptor-size (endianness little))
-    
+
     ;; Write type (4 bytes, little-endian) (NT_GNU_BUILD_ID is 0x3)
     (bytevector-u32-set! note-section 8 #x3 (endianness little))
-    
+
     ;; Write the name ("GNU\0")
     (bytevector-copy! name-bytes 0 note-section 12 name-size)
-    
+
     ;; Write the descriptor (the actual build ID)
     (bytevector-copy! descriptor 0 note-section (+ 12 name-size-aligned) descriptor-size)
-    
-    
+
+
     ;; Return the bytevector representing the .note.gnu.build-id section
     note-section))

diff --git a/compiler/program-headers.scm b/compiler/program-headers.scm
index f83f282410856f53c6c424c9068d745ef0a118e3..09ad2b9eb4a71df79db1a68eca4c339636d9114d 100644 (file)
--- a/compiler/program-headers.scm
+++ b/compiler/program-headers.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -68,22 +68,22 @@
   (let ((first-load-size (max (+ text-size phdr-size))))
     (align-up first-load-size alignment)))
 
-(define (create-program-headers 
-          elf-header-size 
-          program-header-size 
+(define (create-program-headers
+          elf-header-size
+          program-header-size
           num-program-headers
-          text-addr 
-          code-size 
-          rodata-size 
-          bss-size 
+          text-addr
+          code-size
+          rodata-size
+          bss-size
           data-size
-          dynamic-addr 
-          dynamic-offset 
+          dynamic-addr
+          dynamic-offset
           dynamic-size
           total-dynamic-size
-          got-offset 
-          got-size 
-          plt-offset 
+          got-offset
+          got-size
+          plt-offset
           plt-size
           total-size
           zero-load-size
@@ -106,7 +106,7 @@
     (let ((headers
             (list
               ; First LOAD segment (R)
-              (make-program-header 
+              (make-program-header
                 pt-load                  ; Type: Loadable segment
                 (logior pf-r)       ; Flags: Read and execute permissions
                 #x0                      ; Offset: Start of file
@@ -118,7 +118,7 @@
 
 
               ; Second LOAD segment (RX) - includes .text and .rodata
-              (make-program-header 
+              (make-program-header
                 pt-load                  ; Type: Loadable segment
                 (logior pf-r pf-x)       ; Flags: Read and execute permissions
                 #x1000                      ; Offset: Start of file
@@ -129,7 +129,7 @@
                 alignment)               ; Alignment: Required alignment
 
               ; Third LOAD segment (RW) - for .data
-              (make-program-header 
+              (make-program-header
                 pt-load                  ; Type: Loadable segment
                 (logior pf-r)       ; Flags: Read and write permissions
                 data-segment-start       ; Offset: Start of data segment in file
@@ -140,7 +140,7 @@
                 alignment)               ; Alignment: Required alignment
 
               ; Fourth LOAD segment (RWX) - starting from .dynamic, includes .plt and ends with .bss
-              (make-program-header 
+              (make-program-header
                 pt-load                  ; Type: Loadable segment
                 (logior pf-r pf-w)  ; Flags: Read, write, and execute permissions
                 dynamic-offset           ; Offset: Start of dynamic section
@@ -151,7 +151,7 @@
                 alignment)               ; Alignment: Required alignment
 
               ; PT_DYNAMIC
-              (make-program-header 
+              (make-program-header
                 pt-dynamic               ; Type: Dynamic linking information
                 (logior pf-r pf-w)       ; Flags: Read and write permissions
                 dynamic-offset           ; Offset: Start of dynamic section
@@ -174,7 +174,7 @@
                 )
 
               ; GNU_RELRO
-              (make-program-header 
+              (make-program-header
                 pt-gnu-relro             ; Type: GNU read-only after relocation
                 pf-r                     ; Flags: Read permission
                 dynamic-offset           ; Offset: Start of data segment

diff --git a/compiler/rela-plt-section.scm b/compiler/rela-plt-section.scm
index 318c107ce1bf9d449083991ed0e266110d269141..34f336adb698386a43bec8dd5321bb4afcaaeff8 100644 (file)
--- a/compiler/rela-plt-section.scm
+++ b/compiler/rela-plt-section.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -24,9 +24,9 @@
 (define (create-rela-entry offset sym-index type)
   (let ((entry (make-bytevector 24 0)))  ; Each RELA entry is 24 bytes
     (bytevector-u64-set! entry 0 offset (endianness little))  ; r_offset
-    (bytevector-u64-set! entry 8 
-                         (logior (ash (if (number? sym-index) sym-index 0) 32) 
-                                 type) 
+    (bytevector-u64-set! entry 8
+                         (logior (ash (if (number? sym-index) sym-index 0) 32)
+                                 type)
                          (endianness little))  ; r_info
     (bytevector-u64-set! entry 16 0 (endianness little))  ; r_addend
     entry))
@@ -35,7 +35,7 @@
   (let* ((num-entries (length function-labels))
          (rela-plt-size (* num-entries 24))
          (rela-plt (make-bytevector rela-plt-size 0)))
-    
+
     (let loop ((i 0)
                (labels function-labels))
       (if (null? labels)
@@ -45,7 +45,7 @@
                  (raw-sym-index (hash-ref dynsym-indices function-name))
                  (sym-index (if raw-sym-index (+ raw-sym-index 1) #f))
                  (got-plt-entry-offset (+ got-plt-offset (* i 8)))  ; Removed +3 offset
-                 (entry (create-rela-entry 
+                 (entry (create-rela-entry
                          got-plt-entry-offset
                          (or sym-index 0)  ; Use 0 if sym-index is #f
                          7)))  ; 7 is R_X86_64_JUMP_SLOT

diff --git a/compiler/relocation-table.scm b/compiler/relocation-table.scm
index 8950a45a6988b487711d55d0f56cf45237ba3084..896ac5a584499c9ba9ec0fb732b3cc060c480caa 100644 (file)
--- a/compiler/relocation-table.scm
+++ b/compiler/relocation-table.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -23,7 +23,7 @@
   #:use-module (ice-9 hash-table)
   #:export (create-relocation-table))
 
-(define* (create-relocation-table symbol-addresses 
+(define* (create-relocation-table symbol-addresses
                                   #:optional (options '()))
   (let ((reloc-entry-size (or (assoc-ref options 'reloc-entry-size) 24))
         (r-offset-offset (or (assoc-ref options 'r-offset-offset) 0))
@@ -34,7 +34,7 @@
         ;; Update the GOT base with the new offset from the .got section
         (got-base (or (assoc-ref options 'got-base) #x2fe0))) ; Updated GOT base
 
-    (let* ((non-function-symbols 
+    (let* ((non-function-symbols
             (if (hash-table? symbol-addresses)
                 (filter (lambda (entry) (not (cdr (cdr entry))))
                         (hash-map->list cons symbol-addresses))
@@ -60,20 +60,20 @@
                    (symbol-index (+ symbol-index-start index))
                    (got-entry (+ got-base (* index 8))) ; Each GOT entry is 8 bytes in size
                    (r-info (logior (ash symbol-index 32) reloc-type)))
-              
-              (bytevector-u64-set! table 
-                                   (+ entry-offset r-offset-offset) 
-                                   got-entry 
+
+              (bytevector-u64-set! table
+                                   (+ entry-offset r-offset-offset)
+                                   got-entry
                                    (endianness little))  ; r_offset points to GOT entry
-              
-              (bytevector-u64-set! table 
+
+              (bytevector-u64-set! table
                                    (+ entry-offset r-info-offset)
-                                   r-info 
+                                   r-info
                                    (endianness little))  ; r_info
-              
-              (bytevector-u64-set! table 
-                                   (+ entry-offset r-addend-offset) 
-                                   0 
+
+              (bytevector-u64-set! table
+                                   (+ entry-offset r-addend-offset)
+                                   0
                                    (endianness little))  ; r_addend
-              
+
               (loop (cdr symbols) (+ index 1))))))))

diff --git a/compiler/section-headers.scm b/compiler/section-headers.scm
index 6523d31c9cac9b9ab29b38783399e8696a2dad23..39894b3f5bbd2fdcd77df056fda33e85d64d9ab2 100644 (file)
--- a/compiler/section-headers.scm
+++ b/compiler/section-headers.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -46,7 +46,7 @@
           rela-addr got-addr plt-addr symtab-offset strtab-offset shstrtab-addr
           plt-size plt-got-addr plt-got-size rela-plt-addr rela-plt-size
           got-plt-addr got-plt-size rodata-offset gnu-version-addr gnu-version-r-addr
-          gnu-version-size gnu-version-r-size gnu-version-d-offset gnu-version-d-size 
+          gnu-version-size gnu-version-r-size gnu-version-d-offset gnu-version-d-size
           hash-offset hash-size code-offset init-offset init-size
           note-gnu-build-id-addr note-gnu-build-id-size eh-frame-addr eh-frame-size)
 

diff --git a/compiler/shared-object-creator.scm b/compiler/shared-object-creator.scm
index 3fc800204504ff1570711464d0ecbcb591688786..8ab01a1caef260d22e00fdd37365af6788e2e5ab 100644 (file)
--- a/compiler/shared-object-creator.scm
+++ b/compiler/shared-object-creator.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -109,7 +109,7 @@
          (rela-plt-offset (align-to (+ rela-offset relocation-table-size) word-size))
          (rela-addr (+ dynamic-addr (- rela-offset dynamic-offset)))
 
-         (rela-plt-section (create-rela-plt-section 
+         (rela-plt-section (create-rela-plt-section
                              (hash-map->list cons label-positions)
                              got-plt-offset
                              dynsym-indices))
@@ -124,7 +124,7 @@
          (zero-load-size (+ rela-offset relocation-table-size))
          (data-section (create-data-section data-sections))
 
-         (got-plt-section (create-got-plt-section 
+         (got-plt-section (create-got-plt-section
                             (hash-map->list cons label-positions)
                             dynamic-addr
                             plt-offset))
@@ -198,7 +198,7 @@
                             #x2000  ; Hardcoded .eh_frame address
                             #x0   ; Hardcoded .eh_frame size
                             ))
-         (program-headers (create-program-headers 
+         (program-headers (create-program-headers
                             elf-header-size
                             program-header-size
                             num-program-headers

diff --git a/compiler/string-table.scm b/compiler/string-table.scm
index 3ebca4b4dba157d05bafe37e444fe3212938b046..a1750bfeebfda8d7b91f35857bbab5ecd441b648 100644 (file)
--- a/compiler/string-table.scm
+++ b/compiler/string-table.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -37,7 +37,7 @@
 
 (define* (create-string-table symbol-addresses label-positions #:optional (options '()))
   (let ((null-terminator-size (or (assoc-ref options 'null-terminator-size) 1)))
-    (let* ((symbol-names 
+    (let* ((symbol-names
             (if (hash-table? symbol-addresses)
                 (hash-map->list (lambda (key value) (symbol->string key)) symbol-addresses)
                 (map (lambda (pair) (symbol->string (car pair))) symbol-addresses)))
@@ -59,7 +59,7 @@
 
 (define* (create-section-header-string-table #:optional (options '()))
   (let ((null-terminator-size (or (assoc-ref options 'null-terminator-size) 1))
-        (section-names (or (assoc-ref options 'section-names) 
+        (section-names (or (assoc-ref options 'section-names)
                            '("" ".note.gnu.build-id" ".hash" ".dynsym" ".dynstr"
                              ".rela.dyn" ".text" ".eh_frame" ".dynamic" ".got"
                              ".got.plt" ".data" ".symtab" ".strtab" ".shstrtab"))))

diff --git a/compiler/symbol-table.scm b/compiler/symbol-table.scm
index b9fe38306c537826dc9d625db459d46220eb28cd..14a5a38f8c4e3300ee425a9a676d554377240a07 100644 (file)
--- a/compiler/symbol-table.scm
+++ b/compiler/symbol-table.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;
@@ -88,8 +88,8 @@
               symbols)))
 
 (define (calculate-string-table-size symbol-table)
-  (hash-fold 
-    (lambda (key value acc) 
+  (hash-fold
+    (lambda (key value acc)
       (+ acc (string-length (symbol->string key)) 1))
     1  ; Start with 1 for the initial null byte
     symbol-table))
@@ -138,7 +138,7 @@
 
          (define (process-table symbol-table table string-table opts initial-str-offset symbol-addresses)
            (let* ((symbols (hash-map->list cons symbol-table))
-                  (sorted-symbols 
+                  (sorted-symbols
                     (sort symbols
                           (lambda (a b)
                             (let ((name-a (symbol->string (car a)))
@@ -200,7 +200,7 @@
                                               (string=? clean-name "_GLOBAL_OFFSET_TABLE_"))
                                           stt-object)
                                          (else stt-notype)))
-                          (entry (make-symbol-entry str-offset address 
+                          (entry (make-symbol-entry str-offset address
                                                     (logior (ash stb-value 4)
                                                             symbol-type)
                                                     0
@@ -244,7 +244,7 @@
 
            (process-table symbol-table symbol-table-bytevector symbol-string-table opts initial-str-offset symbol-addresses)))
 
-(define* (create-dynsym-and-dynstr dynamic-symbol-addresses 
+(define* (create-dynsym-and-dynstr dynamic-symbol-addresses
                                    #:optional (label-positions '()) (options '()))
          (define (merge-options default-options custom-options)
            (append custom-options default-options))
@@ -268,7 +268,7 @@
 
          (define (process-table symbol-table table string-table opts initial-str-offset dynamic-symbol-addresses)
            (let* ((symbols (hash-map->list cons symbol-table))
-                  (sorted-symbols 
+                  (sorted-symbols
                     (sort symbols
                           (lambda (a b)
                             (let ((name-a (symbol->string (car a)))
@@ -303,17 +303,17 @@
                                       (string-trim-suffix name "@LOCAL")
                                       name))
                         (name-bytes (string->utf8 clean-name))
-                        (entry (make-symbol-entry str-offset address 
+                        (entry (make-symbol-entry str-offset address
                                                   (logior (ash (if is-local
                                                                  (assoc-ref opts 'stb-local)
                                                                  (assoc-ref opts 'stb-global))
                                                                4)
-                                                          (if is-function 
-                                                            (assoc-ref opts 'stt-notype) 
+                                                          (if is-function
+                                                            (assoc-ref opts 'stt-notype)
                                                             (assoc-ref opts 'stt-notype)))
                                                   0
-                                                  (if is-function 
-                                                    (assoc-ref opts 'shn-text) 
+                                                  (if is-function
+                                                    (assoc-ref opts 'shn-text)
                                                     (assoc-ref opts 'shn-data))
                                                   (if is-function 0 0)))
                         (entry-offset (* index (assoc-ref opts 'symbol-entry-size))))
@@ -416,8 +416,8 @@
            ; Write bucket array
            (let loop ((i 0))
              (when (< i nbucket)
-               (bytevector-u32-set! hash-section 
-                                    (+ (assoc-ref opts 'hash-header-size) 
+               (bytevector-u32-set! hash-section
+                                    (+ (assoc-ref opts 'hash-header-size)
                                        (* (assoc-ref opts 'hash-entry-size) i))
                                     (vector-ref buckets i)
                                     (endianness little))
@@ -426,7 +426,7 @@
            ; Write chain array
            (let loop ((i 0))
              (when (< i nchain)
-               (bytevector-u32-set! hash-section 
+               (bytevector-u32-set! hash-section
                                     (+ (assoc-ref opts 'hash-header-size)
                                        (* (assoc-ref opts 'hash-entry-size) nbucket)
                                        (* (assoc-ref opts 'hash-entry-size) i))

diff --git a/compiler/utils.scm b/compiler/utils.scm
index 2642bdf1639f18df124a22b38405986bd7879203..ede0e46f2a0a0eadbab23239f5ae2611da83ea13 100644 (file)
--- a/compiler/utils.scm
+++ b/compiler/utils.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2023 Vouivre Digital Corporation
+;;;; Copyright (C) 2024 Vouivre Digital Corporation
 ;;;;
 ;;;; This file is part of Vouivre.
 ;;;;