Access violation при передачи аргумента в PS
Posted: 21.06.2015 7:50
Имеем вот такую красавицу, вроде бы написано по всем истокам паскаля, но выпадает:
Кто-нибудь может воспроизвести эту багу на 6.5.3?06:19:09:598 [[RPG] Fermi]: Error exec script method "main" - Access violation at address 0040B94D in module 'Stealth.exe'. Read of address 00000000
Code: Select all
Program AccessVio;
uses SysUtils;
function loot_add(a: Integer; b: Integer): Integer;
begin
AddToSystemJournal('x1');
IntToStr(a);
AddToSystemJournal('x1-1');
IntToStr(b);
AddToSystemJournal('x2');
Result := 1;
end;
procedure main();
begin
AddToSystemJournal('n1');
loot_add(1, 1); // GP
AddToSystemJournal('n2');
end;
begin
main();
end.