SysUtils for Win

Вопросы программирования на Free Pascal, использования компилятора и утилит.

Модератор: Модераторы

Сообщение Uniser » 14.06.2005 17:33:55

У меня 2-я версия fpc
На простенькую программку при компоновке выдаёт ошибки

program fr;
{$mode objfpc}
{$H+}
uses SysUtils;
var H,L:Integer; S,D:string;
begin
H:=FileOpen(ParamStr(1),fmOpenRead+fmShareDenyNone);
if H>0 then try
SetLength(S,FileSeek(H,0,2));
FileSeek(H,0,0);
L:=FileRead(H,S[1],Length(S));
if L<>Length(S) then begin
WriteLn('Ошибка чтения.');
Halt(1);
end;
finally FileClose(H); end else begin
WriteLn('Не могу открыть файл.');
Halt(1);
end;

D:=S; // Чего-то делаем с файлом

H:=FileCreate(ChangeFileExt(ParamStr(1),'.dst'));
if H>0 then try
if FileWrite(H,D[1],Length(D)) <> Length(D)
then begin
WriteLn('Ошибка записи.');
Halt(1);
end;
finally FileClose(H); end else begin
WriteLn('Не могу создать файл.');
Halt(1);
end;
end.



Вот текст ош.:

Linking fr.exe
C:\TOOLS\FPC\units\i386-win32\rtl\libpsysutils.a(sysutils0s277.o)(.text+0x7f):sy
sutils.pp: undefined reference to `WINDOWS_CREATEFILE$crcD170D95E'
C:\TOOLS\FPC\units\i386-win32\rtl\libpsysutils.a(sysutils0s282.o)(.text+0x19):sy
sutils.pp: undefined reference to `WINDOWS_SETFILEPOINTER$LONGWORD$LONGINT$PLONG
$LONGWORD$$LONGWORD'
C:\TOOLS\FPC\units\i386-win32\rtl\libpsysutils.a(sysutils0s278.o)(.text+0x64):sy
sutils.pp: undefined reference to `WINDOWS_CREATEFILE$crcD170D95E'
C:\TOOLS\FPC\units\i386-win32\rtl\libpsysutils.a(sysutils0s323.o)(.text+0x2f):sy
sutils.pp: undefined reference to `WINDOWS_GETVERSIONEX$OSVERSIONINFO$$LONGBOOL'

C:\TOOLS\FPC\units\i386-win32\rtl\libpsysutils.a(sysutils0s323.o)(.text+0xa8):sy
sutils.pp: undefined reference to `WINDOWS_LOADLIBRARY$PCHAR$$LONGWORD'
C:\TOOLS\FPC\units\i386-win32\rtl\libpsysutils.a(sysutils0s323.o)(.text+0xc2):sy
sutils.pp: undefined reference to `WINDOWS_GETPROCADDRESS$LONGWORD$PCHAR$$POINTE
R'
C:\TOOLS\FPC\units\i386-win32\rtl\libpsysutils.a(sysutils0s315.o)(.text+0x5c):sy
sutils.pp: undefined reference to `WINDOWS_MAKELANGID$LONGINT$LONGINT$$LONGINT'
Error: Error while linking

Думаю, что пути в fpc.cfg нормальные:
-FuC:\TOOLS\FPC/units/$FPCTARGET/
-FuC:\TOOLS\FPC/units/$FPCTARGET/*
-FuC:\TOOLS\FPC/units/$FPCTARGET/rtl

Где я ошибся?
Uniser
новенький
 
Сообщения: 46
Зарегистрирован: 13.05.2005 23:13:57
Откуда: Украина, Полтава

Сообщение Иван Шихалев » 15.06.2005 03:22:00

1. Разные версии модуля Windows: SysUtils был скомпилирован с одной, а объектный и/или библиотечный файл берется от другой.
2. Баг самого компилятора — в этом случае, если в uses добавить Windows, то все пройдет.
Аватара пользователя
Иван Шихалев
энтузиаст
 
Сообщения: 1140
Зарегистрирован: 15.05.2006 11:26:13
Откуда: Екатеринбург


Вернуться в Free Pascal Compiler

Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot] и гости: 3

Рейтинг@Mail.ru