Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag
    • CommentAuthorjohnyjj2
    • CommentTime3 Aug 2009 zmieniony
     
    Witam! Rzecz jasna szukałem odpowiedzi tutaj: http://www.freepascal.org/port.var . Mam pewien stary kod w Turbo Pascalu i próbuję go odpalić pod Dev-Pascal 1.9.2. (Próbowałem też programu Lazarus, ale wyskakiwał błąd "Error. Project raised exception class 'External: SIGSEGV'.";). Free Pascal Compiler version 1.0.6 [2002/04/23] for i386 Copyright (c) 1993-2002 by Florian Klaempfl Target OS: Win32 for i386 Compiling f:\intern\26turb~1\program\main1.pas main1.pas(1,2) Warning: Unsupported switch $N Compiling main2.pas main2.pas(1,2) Warning: Unsupported switch $N main2.pas(308,15) Error: call by var parameters have to match exactly: Got LONGINT expected SMALLINT main2.pas(645,76) Warning: Comment level 2 found main2.pas(843,3) Warning: Comment level 2 found main2.pas(643,2) Fatal: Unexpected end of file Przeglądam te dwie linijki: 308: InitGraph(ster,tryb,path); 52: ster:integer=VGA; Zmieniłem linijkę 52. 52: ster:smallint=VGA; Próbowałem też: 52: ster:shortint=VGA; Ale obie opcje nie pomagają i cały czas ten sam błąd: Got LONGINT expected SMALLINT. No i druga rzecz, czyli unexpected end of file. Końcówka pliku wygląda tak: Resume end end; end . Pozdrawiam!