paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:00:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@31577 -
This commit is contained in:
nickysn 2015-09-07 22:28:42 +00:00
parent e323a08b20
commit a9069dc16d
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/win16/system.pp
View File

@ -140,18 +140,6 @@ type
{$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
*****************************************************************************}
@ -317,5 +305,4 @@ begin
StackLength := pStackBot-pStackTop;
end;
{$endif}
MessageBox(0, 'Hello, world!', 'yo', 0);
end.