From 82b65469975c2019bfbadfba8303bc3d7ff1363c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 5 Apr 2006 07:17:41 +0000
Subject: [PATCH]   * fix importing for win32

git-svn-id: trunk@3147 -
---
 compiler/ogcoff.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/ogcoff.pas b/compiler/ogcoff.pas
index 7fc178fed4..d1bcfc9adc 100644
--- a/compiler/ogcoff.pas
+++ b/compiler/ogcoff.pas
@@ -2279,9 +2279,10 @@ const win32stub : array[0..131] of byte=(
           internalobjdata.writebytes(nopopcodes,align(internalobjdata.CurrObjSec.size,sizeof(nopopcodes))-internalobjdata.CurrObjSec.size);
         end;
 
+{$ifdef win32}
       var
         p : pointer;
-
+{$endif win32}
       begin
         result:=false;
         basedllname:=splitfilename(dllname);
@@ -2375,8 +2376,8 @@ const win32stub : array[0..131] of byte=(
               begin
                 DLLReader.Read(FuncName[1],sizeof(FuncName)-3);
                 FuncName[sizeof(FuncName)-1]:=#0;
-                FuncName[0]:=chr(Strlen(@FuncName[1]));
               end;
+            FuncName[0]:=chr(Strlen(@FuncName[1]));
 
             for j:=0 to UnresolvedExeSymbols.Count-1 do
               begin