paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 19:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix importing for win32

Browse Source 
git-svn-id: trunk@3147 -
This commit is contained in:
peter 2006-04-05 07:17:41 +00:00
parent 96db39b15d
commit 82b6546997
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ogcoff.pas
View File

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