* fixed important library writing on arm

git-svn-id: trunk@3336 -

compiler/ogcoff.pas

@@ -355,6 +355,20 @@ implementation
        IMAGE_REL_AMD64_SSPAN32     = $0010;  { 32 bit signed span-dependent value applied at link time }
 {$endif x86_64}
 
+{$ifdef arm}
+       IMAGE_REL_ARM_ABSOLUTE      = $0000;     { No relocation required }
+       IMAGE_REL_ARM_ADDR32        = $0001;     { 32 bit address }
+       IMAGE_REL_ARM_ADDR32NB      = $0002;     { 32 bit address w/o image base }
+       IMAGE_REL_ARM_BRANCH24      = $0003;     { 24 bit offset << 2 & sign ext. }
+       IMAGE_REL_ARM_BRANCH11      = $0004;     { Thumb: 2 11 bit offsets }
+       IMAGE_REL_ARM_TOKEN         = $0005;     { clr token }
+       IMAGE_REL_ARM_GPREL12       = $0006;     { GP-relative addressing (ARM) }
+       IMAGE_REL_ARM_GPREL7        = $0007;     { GP-relative addressing (Thumb) }
+       IMAGE_REL_ARM_BLX24         = $0008;
+       IMAGE_REL_ARM_BLX11         = $0009;
+       IMAGE_REL_ARM_SECTION       = $000E;     { Section table index }
+       IMAGE_REL_ARM_SECREL        = $000F;     { Offset within section }
+{$endif arm}
        R_DIR32 = 6;
        R_IMAGEBASE = 7;
        R_PCRLONG = 20;
@@ -1156,7 +1170,15 @@ const win32stub : array[0..131] of byte=(
             case objreloc.typ of
 {$ifdef arm}
               RELOC_ABSOLUTE :
-                ;
+                rel.reloctype:=IMAGE_REL_ARM_ADDR32;
+
+              { I've no idea if this is correct (FK):
+              RELOC_RELATIVE :
+                rel.reloctype:=IMAGE_REL_ARM_GPREL12;
+              }
+
+              RELOC_RVA :
+                rel.reloctype:=IMAGE_REL_ARM_ADDR32NB;
 {$endif arm}
 {$ifdef i386}
               RELOC_RELATIVE :
@@ -1177,7 +1199,7 @@ const win32stub : array[0..131] of byte=(
                 rel.reloctype:=IMAGE_REL_AMD64_ADDR32NB;
 {$endif x86_64}
               else
-                internalerror(200603311);
+                internalerror(200603312);
             end;
             FWriter.write(rel,sizeof(rel));
           end;