- removed some debug and commented out code from the win16 system unit

git-svn-id: trunk@31577 -
This commit is contained in:
nickysn 2015-09-07 22:28:42 +00:00
parent e323a08b20
commit a9069dc16d

View File

@ -140,18 +140,6 @@ type
{$I tinyheap.inc} {$I tinyheap.inc}
{procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS'];compilerproc;
begin
MessageBox(0, 'Hello, world!', 'yo', 0);
end;}
{procedure fpc_do_exit;[public,alias:'FPC_DO_EXIT'];compilerproc;
begin
asm
mov ax, 4c00h
int 21h
end;
end;}
{***************************************************************************** {*****************************************************************************
ParamStr/Randomize ParamStr/Randomize
*****************************************************************************} *****************************************************************************}
@ -317,5 +305,4 @@ begin
StackLength := pStackBot-pStackTop; StackLength := pStackBot-pStackTop;
end; end;
{$endif} {$endif}
MessageBox(0, 'Hello, world!', 'yo', 0);
end. end.