mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-27 21:30:23 +02:00
- removed some debug and commented out code from the win16 system unit
git-svn-id: trunk@31577 -
This commit is contained in:
parent
e323a08b20
commit
a9069dc16d
@ -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.
|
||||||
|
Loading…
Reference in New Issue
Block a user