equal
deleted
inserted
replaced
139 isTerminated:= false; |
139 isTerminated:= false; |
140 end; |
140 end; |
141 |
141 |
142 /////////////////// |
142 /////////////////// |
143 procedure MainLoop; |
143 procedure MainLoop; |
|
144 {$WARNINGS OFF} |
|
145 // disable "Some fields weren't initialized" warning |
|
146 const event: TSDL_Event = (); |
|
147 {$WARNINGS ON} |
144 var PrevTime, CurrTime: Longword; |
148 var PrevTime, CurrTime: Longword; |
145 event: TSDL_Event; |
|
146 begin |
149 begin |
147 PrevTime:= SDL_GetTicks; |
150 PrevTime:= SDL_GetTicks; |
148 while isTerminated = false do |
151 while isTerminated = false do |
149 begin |
152 begin |
150 |
153 |