mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 10:59:29 +02:00
* finished opcodes, still need some operands
git-svn-id: trunk@9218 -
This commit is contained in:
parent
b9bb55769f
commit
6fe9786d9c
@ -72,6 +72,12 @@ begin
|
||||
Write('FPWDebugger on ', {$I %FPCTARGETOS%}, ' for ', {$I %FPCTARGETCPU%});
|
||||
WriteLn(' (', {$I %DATE%}, ' ', {$I %TIME%}, ' FPC: ', {$I %FPCVERSION%}, ')' );
|
||||
WriteLN('starting....');
|
||||
|
||||
if ParamCount > 0
|
||||
then begin
|
||||
GFileName := ParamStr(1);
|
||||
WriteLN('Using file: ', GFileName);
|
||||
end;
|
||||
|
||||
SetConsoleCtrlHandler(@CtrlCHandler, True);
|
||||
repeat
|
||||
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user