From a9069dc16de86e19ffba316c1304e68104bd5157 Mon Sep 17 00:00:00 2001 From: nickysn Date: Mon, 7 Sep 2015 22:28:42 +0000 Subject: [PATCH] - removed some debug and commented out code from the win16 system unit git-svn-id: trunk@31577 - --- rtl/win16/system.pp | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/rtl/win16/system.pp b/rtl/win16/system.pp index 19c4d6652e..6b7c23f8dc 100644 --- a/rtl/win16/system.pp +++ b/rtl/win16/system.pp @@ -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.