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

* calling SysInitExceptions is not really needed because it sets only some vars to nil which are nil anyways, this saves some bytes

Browse Source 
git-svn-id: trunk@23261 -
This commit is contained in:
florian 2012-12-31 19:28:45 +00:00
parent 00af813eee
commit ebd2e79270
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/embedded/system.pp
View File

@ -149,7 +149,7 @@ end;
Procedure Randomize;
Begin
RandSeed := 63458;
RandSeed := 63458;
End;
{$endif FPC_HAS_FEATURE_RANDOM}
@ -208,7 +208,14 @@ begin
{$endif FPC_HAS_FEATURE_STACKCHECK}
{$ifdef FPC_HAS_FEATURE_EXCEPTIONS}
SysInitExceptions;
{ SysInitExceptions initializes only ExceptObjectstack and ExceptAddrStack
with nil since both are located in the bss section, they are zeroed at startup
anyways so not calling SysInitExceptions saves some bytes for simple programs. Even for threaded
programs this does not matter because in the main thread, the variables are located
in bss
SysInitExceptions;
}
{$endif FPC_HAS_FEATURE_EXCEPTIONS}
{$ifdef FPC_HAS_FEATURE_CONSOLEIO}