Rev 7107 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7107 | Rev 7110 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | (* |
1 | (* |
| 2 | Copyright 2016, 2017 Anton Krotov |
2 | Copyright 2016, 2017 Anton Krotov |
| Line 3... | Line 3... | ||
| 3 | 3 | ||
| 4 | This program is free software: you can redistribute it and/or modify |
4 | This program is free software: you can redistribute it and/or modify |
| 5 | it under the terms of the GNU Lesser General Public License as published by |
5 | it under the terms of the GNU Lesser General Public License as published by |
| Line 244... | Line 244... | ||
| 244 | StrAppend(0AX); |
244 | StrAppend(0AX); |
| 245 | StrAppend("code "); |
245 | StrAppend("code "); |
| 246 | Int(code, int); |
246 | Int(code, int); |
| 247 | StrAppend(int) |
247 | StrAppend(int) |
| 248 | END; |
248 | END; |
| - | 249 | API.DebugMsg(sys.ADR(msg), SelfName); |
|
| 249 | IF API.GetCurrentThreadId() = main_thread_id THEN |
250 | IF API.GetCurrentThreadId() = main_thread_id THEN |
| 250 | API.ExitProcess(0) |
251 | API.ExitProcess(0) |
| 251 | ELSE |
252 | ELSE |
| 252 | API.ExitThread(0) |
253 | API.ExitThread(0) |
| 253 | END |
254 | END |