| /programs/develop/oberon07/Lib/Windows32/RTL.ob07 |
|---|
| 1,4 → 1,4 |
| (* |
| (* |
| Copyright 2016, 2017 Anton Krotov |
| This program is free software: you can redistribute it and/or modify |
| 246,6 → 246,7 |
| Int(code, int); |
| StrAppend(int) |
| END; |
| API.DebugMsg(sys.ADR(msg), SelfName); |
| IF API.GetCurrentThreadId() = main_thread_id THEN |
| API.ExitProcess(0) |
| ELSE |