Re: RE : [fpc-pascal] Variable alignment in arm-embedded
Koenraad Lelong wrote I'm making progress with my embedded application. Learning to use the processor is not easy compared to 8 bit processors. These processors are powerful and cheaper than 8 bit micros :) Koenraad Lelong wrote I found a bug in Anton's library though: in stm32f1xx_systick.pas if NewState = DISABLED then is wrong and should be if NewState DISABLED then You are correct, I fixed it on my side as well Koenraad Lelong wrote Maybe the comments of the c-sources of what the functions do and need as parameters should be included. I'm busy adding the library files onto my wepage with version control (git). Then we can add the comments to the source files and continue from there. Koenraad Lelong wrote The LCD-unit seems not to specify for which LCD the software is written, and contains a unit which is not there (defPSPlcd - PlayStationP LCD ?). Yes, In my project I'm driving a 4.2 24bit 480x272 Color LCD, same as you will find in a PlayStation Portable. Thank you for the feedback, does this mean you got the interrupt working with my patches?? -- Anton -- View this message in context: http://free-pascal-general.1045716.n5.nabble.com/Variable-alignment-in-arm-embedded-tp5709962p5710174.html Sent from the Free Pascal - General mailing list archive at Nabble.com. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : [fpc-pascal] Variable alignment in arm-embedded
On 26-06-12 09:38, alrieckert wrote: Thank you for the feedback, does this mean you got the interrupt working with my patches?? Hi Anton, Yes, I got interrupts working now. It took some experimenting though. Or maybe I'm missing something. To get the interrupt procedure on the right place in the vector table you need to add an offset to the constant : procedure Exti0_Proc; interrupt EXTI0_IRQn + 15; But to enable the interrupt you have to use the constant itself : NVIC_EnableIRQ(EXTI0_IRQn); // enable interrupt from rot.sensor Maybe adding some constants for the place in the vector table would be better ? P.S. Did you work already with interrupts ? I found I needed to clear the Pending bit of the interrupt at the end of the interrupt-routine. Otherwise I never left the interrupt-routine, or so it seemed. I tried with event-mode but that seemed no solution. GPIO_EXTILineConfig(GPIO_PortSourceGPIOA, GPIO_PinSource0); EXTI_StructInit(EXTI_InitStructure); EXTI_InitStructure.EXTI_Trigger:=EXTI_Trigger_Rising_Falling; EXTI_InitStructure.EXTI_Line:=EXTI_Line0; EXTI_InitStructure.EXTI_LineCmd:=ENABLED; //EXTI_InitStructure.EXTI_Mode:=EXTI_Mode_Event; EXTI_Init(EXTI_InitStructure); Regards, Koen. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : [fpc-pascal] Variable alignment in arm-embedded
Koenraad Lelong-2 wrote Yes, I got interrupts working now. It took some experimenting though. Or maybe I'm missing something. To get the interrupt procedure on the right place in the vector table you need to add an offset to the constant : procedure Exti0_Proc; interrupt EXTI0_IRQn + 15; But to enable the interrupt you have to use the constant itself : NVIC_EnableIRQ(EXTI0_IRQn); // enable interrupt from rot.sensor Maybe adding some constants for the place in the vector table would be better ? Yes, I forgot to mention that. I use it exactly like you have it with the + 15 Koenraad Lelong-2 wrote P.S. Did you work already with interrupts ? I found I needed to clear the Pending bit of the interrupt at the end of the interrupt-routine. Otherwise I never left the interrupt-routine, or so it seemed. I tried with event-mode but that seemed no solution. GPIO_EXTILineConfig(GPIO_PortSourceGPIOA, GPIO_PinSource0); EXTI_StructInit(EXTI_InitStructure); EXTI_InitStructure.EXTI_Trigger:=EXTI_Trigger_Rising_Falling; EXTI_InitStructure.EXTI_Line:=EXTI_Line0; EXTI_InitStructure.EXTI_LineCmd:=ENABLED; //EXTI_InitStructure.EXTI_Mode:=EXTI_Mode_Event; EXTI_Init(EXTI_InitStructure); Yes, I'm using the following interrupts in one of my projects. USART1, USART2, Systick, Timer1, Timer2, Timer3 and two of the EXTI You need to enable the EXTI interrupt as well. Here is an example for EXTI1. I haven't tried with Event mode yet. I'll give you feedback on this a bit later. Maybe there is also a small problem with the ported library to pascal? and then you need My interrupt procedure looks like follow Thus far my projects are running without any problems or issues and the interrupt are working great. -- View this message in context: http://free-pascal-general.1045716.n5.nabble.com/Variable-alignment-in-arm-embedded-tp5709962p5710183.html Sent from the Free Pascal - General mailing list archive at Nabble.com. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : [fpc-pascal] Variable alignment in arm-embedded
On Wed, June 13, 2012 07:37, alrieckert wrote: alrieckert wrote Please just make sure about your starting address for the flash. I'm using the STM32F103CBT6 and the start address is 0x0800 and not 0x080 I've just verified it. The starting address for the flash should be 0x0800. The reason for mine being 0x08003000 is that I'm making use of a USB DFU bootloader to load my program onto the device. Would be nice if we could specify the flash start offset at compile (link) time and not to hard code this into the compiler? Sorry for a possibly stupid question, but is this offset (conceptionally) comparable to the -WB option used for some other targets? If so, it might make sense to extend it also for your case... Tomas ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : [fpc-pascal] Variable alignment in arm-embedded
Koenraad Lelong-2 wrote About that DFU-loader, do you have to do anything special to be able to use fpc, besides modifying your start-address ? Any links to read more about it ? Now I'm using jtag to flash and debug my software. Hi Koenraad, I'm using DfuSe USB device firmware upgrade STMicroelectronics extension from ST. You can download it from this link. http://www.st.com/internet/mcu/product/164487.jsp http://www.st.com/internet/mcu/product/164487.jsp I compiled the project with IAR, got a HEX file that I uploaded to my microcontroller using a STLink2 (JTAG). Now when you hold the button and power up the micro, it will enter bootload mode and allow you to upload new firmware via the USB. The only requirement is that your new project will start at 0x08003000 since the bootloader resides at the beginning. As from a FPC view, you only need to change the flash stat offset as I had it. The link I posted has all the required software, docs and drivers you will need. Please ask if you have any other questions. -- Anton -- View this message in context: http://free-pascal-general.1045716.n5.nabble.com/Variable-alignment-in-arm-embedded-tp5709962p5710044.html Sent from the Free Pascal - General mailing list archive at Nabble.com. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : [fpc-pascal] Variable alignment in arm-embedded
Tomas Hajny-2 wrote Sorry for a possibly stupid question, but is this offset (conceptionally) comparable to the -WB option used for some other targets? If so, it might make sense to extend it also for your case... Hi Tomas, Not a stupid question at all. To be totally honest, I have no idea what the -WB parameter does. I tried to play around with it, but it tells me illegal parameter -WBxxx Basically what needs to happen, is al link time, the link script needs to take the flash start address as a variable from somewhere. So this is an example of the current link.res that is generated by the compiler. The origin and lengths are hardcoded. and all that needs to happen is you need to be able to set the with either a parameter or as compiler directives. Regards -- Anton -- View this message in context: http://free-pascal-general.1045716.n5.nabble.com/Variable-alignment-in-arm-embedded-tp5709962p5710045.html Sent from the Free Pascal - General mailing list archive at Nabble.com. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : RE : [fpc-pascal] Variable alignment in arm-embedded
Florian Klämpfl wrote Better submit a bug tracker entry. This way it cannot get lost. Hi Florian, Thank you, I do have an open bug on this issue here http://bugs.freepascal.org/view.php?id=22146 Freepascal Bug ID 22146 -- Regards Anton Rieckert -- View this message in context: http://free-pascal-general.1045716.n5.nabble.com/Variable-alignment-in-arm-embedded-tp5709962p5710047.html Sent from the Free Pascal - General mailing list archive at Nabble.com. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : [fpc-pascal] Variable alignment in arm-embedded
On Wed, June 13, 2012 12:55, alrieckert wrote: Tomas Hajny-2 wrote Sorry for a possibly stupid question, but is this offset (conceptionally) comparable to the -WB option used for some other targets? If so, it might make sense to extend it also for your case... Hi Tomas, Not a stupid question at all. To be totally honest, I have no idea what the -WB parameter does. You can find some information about the image addresses on MS Windows on http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/devcommon/compdirsimagebaseaddress_xml.html and http://blogs.msdn.com/b/calvin_hsia/archive/2007/07/27/dll-image-base-addresses-are-the-same-in-xp-different-on-vista.aspx. Maybe that helps you to check if it is conceptually similar/comparable, or not. I tried to play around with it, but it tells me illegal parameter -WBxxx Yes, the parameter is enabled only for certain platforms (see the compiler help listed if calling it without parameters), that's why I talked about extending it (by enabling it for another target on line 1704 of options.pas in trunk and adding support for using the passed value in t_embed.pas - see TExternalLinkerWin methods SetDefaultInfo, WriteResponseFile and MakeExecutable in t_win.pas to see how it is accessed and used for the Windows targets). Basically what needs to happen, is al link time, the link script needs to take the flash start address as a variable from somewhere. So this is an example of the current link.res that is generated by the compiler. The origin and lengths are hardcoded. and all that needs to happen is you need to be able to set the with either a parameter or as compiler directives. (Re-)using image base would provide both options. Tomas ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : RE : [fpc-pascal] Variable alignment in arm-embedded
On 08-06-12 14:37, Jeppe Græsdal Johansen wrote: Den 08-06-2012 14:28, Ludo Brands skrev: Thanks Ludo, I'll take that as a starting point. I hope I will not need the lost 256 bytes in the future. I could be wrong but AFAIK if the compiler would do the alignment, the loss can also be up to 255 bytes. Here you lose 256 bytes in all cases. Yes, but this would allow the linker to place other stuff there which fits in less than 255 bytes. Wasting 255 bytes is a lot on systems that only has a few kilobytes of RAM. I wonder if the restriction of 32 bytes on the align directive could just be removed, or will we need some sort of linker script changes? Hi, I'm still struggling to get interrupts (or even inputs) work but I wanted to comment on the size of the table. Reading the manuals I found it's actually on a 512 byte boundery. The VTOR (Vector Table Offset Register) masks off the last 9 bits (8..0). If I need that space I will modify the start of RAM location and use the first bytes of RAM for the vector-table. It would be nice to have external linker scripts. That way you could more easily add processors, or use custom bootloaders. Regards, Koenraad Lelong. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : RE : [fpc-pascal] Variable alignment in arm-embedded
Hi Jeppe, I've been using the actual ROM based interrupt table for the past month now in freepascal ad it seems to work great. No need to declare a block of RAM and pointing the interrupt table to it. You can code any procedure and just give it the interrupt keyword with an address index. For example: There are 3 patches you need to apply to your compiler. I'll try to submit the patches to the Freepascal mailing list and hopefully someone will accept them, but in the mean time you can find them here. https://github.com/alrieckert/freepascal/commit/8255677c9a79dfec22b65c5b34be43b1602c6928 https://github.com/alrieckert/freepascal/commit/2e40029a9d4b191ee06b7b3519bdc382769adbc7 https://github.com/alrieckert/freepascal/commit/1883b86791af851f0c5093760e349dc8854c5905 The first patch enables the interrupt keyword for the arm-embedded target and allows the compiler to generate the NVIT table that will link in at 0x08000 The second patch is a small bug fix with the stm32f103.pp definition file The third patch fixed the exit code, otherwise you will get Hard Fault interrupt when a interrupt occurs as a procedure is busy restoring the stack and SP. No need to give the nostackframe since the ARMv7m automatically stores R0-R3, R12, SP and LR for you when an interrupt occurs, thus the interrupt procedure looks exactly like a normal procedure. Please let me know if you have any questions. -- Anton -- View this message in context: http://free-pascal-general.1045716.n5.nabble.com/Variable-alignment-in-arm-embedded-tp5709962p5709998.html Sent from the Free Pascal - General mailing list archive at Nabble.com. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : RE : [fpc-pascal] Variable alignment in arm-embedded
Am 08.06.2012 14:37, schrieb Jeppe Græsdal Johansen: Den 08-06-2012 14:28, Ludo Brands skrev: Thanks Ludo, I'll take that as a starting point. I hope I will not need the lost 256 bytes in the future. I could be wrong but AFAIK if the compiler would do the alignment, the loss can also be up to 255 bytes. Here you lose 256 bytes in all cases. Yes, but this would allow the linker to place other stuff there which fits in less than 255 bytes. Wasting 255 bytes is a lot on systems that only has a few kilobytes of RAM. I wonder if the restriction of 32 bytes on the align directive could just be removed, or will we need some sort of linker script changes? It could be removed but I'am pretty sure that the linker does not use the alignment space for other stuff. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : RE : [fpc-pascal] Variable alignment in arm-embedded
Am 12.06.2012 09:50, schrieb Koenraad Lelong: On 08-06-12 14:37, Jeppe Græsdal Johansen wrote: Den 08-06-2012 14:28, Ludo Brands skrev: Thanks Ludo, I'll take that as a starting point. I hope I will not need the lost 256 bytes in the future. I could be wrong but AFAIK if the compiler would do the alignment, the loss can also be up to 255 bytes. Here you lose 256 bytes in all cases. Yes, but this would allow the linker to place other stuff there which fits in less than 255 bytes. Wasting 255 bytes is a lot on systems that only has a few kilobytes of RAM. I wonder if the restriction of 32 bytes on the align directive could just be removed, or will we need some sort of linker script changes? Hi, I'm still struggling to get interrupts (or even inputs) work but I wanted to comment on the size of the table. Reading the manuals I found it's actually on a 512 byte boundery. The VTOR (Vector Table Offset Register) masks off the last 9 bits (8..0). If I need that space I will modify the start of RAM location and use the first bytes of RAM for the vector-table. It would be nice to have external linker scripts. That way you could more easily add processors, I think extending t_embedded.pas is the more clean solution to add new controllers, especially because it makes it easier for other people to use the added controllers. or use custom bootloaders. Regards, Koenraad Lelong. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : RE : [fpc-pascal] Variable alignment in arm-embedded
Am 11.06.2012 13:46, schrieb alrieckert: Hi Jeppe, I've been using the actual ROM based interrupt table for the past month now in freepascal ad it seems to work great. No need to declare a block of RAM and pointing the interrupt table to it. You can code any procedure and just give it the interrupt keyword with an address index. For example: There are 3 patches you need to apply to your compiler. I'll try to submit the patches to the Freepascal mailing list and hopefully someone will accept them, but in the mean time you can find them here. Better submit a bug tracker entry. This way it cannot get lost. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : [fpc-pascal] Variable alignment in arm-embedded
Hi Koenraad, Glad to see more people that want to make use of Freepascal for STM32. I've had a quick look at your project and everything seems fine. The only thing I noted is that the interrupt procedures must be in a separate unit. I've changed your project and recompiled it and now it seems fine. Please just make sure about your starting address for the flash. I'm using the STM32F103CBT6 and the start address is 0x0800 and not 0x080 I'll have a look at why the interrupt procedures needs to be separate and get back to you. I've also attached one of my sample projects that you can test with. The project will blink a LED on PortB.8 making use of the Systick timer and echo all data send to it via USART1 back making use of the USART interrupt. It also includes a large set of the STM32 StdPeripheral libraries that is ported to Pascal. Regards Anton http://free-pascal-general.1045716.n5.nabble.com/file/n5710034/Bare2.tar.gz Bare2.tar.gz http://free-pascal-general.1045716.n5.nabble.com/file/n5710034/test.tar.gz test.tar.gz -- View this message in context: http://free-pascal-general.1045716.n5.nabble.com/Variable-alignment-in-arm-embedded-tp5709962p5710034.html Sent from the Free Pascal - General mailing list archive at Nabble.com.___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : [fpc-pascal] Variable alignment in arm-embedded
alrieckert wrote I'll have a look at why the interrupt procedures needs to be separate and get back to you. Ok, the compiler was only scanning the used source files for interrupt procedures and not the main file as well. I've added the necessary code to ncgutil.pas that will allow the compiler to scan the main project file as well. https://github.com/alrieckert/freepascal/commit/0589b86b052cc0711f69d4f61f9f4869f6b95cc4 https://github.com/alrieckert/freepascal/commit/0589b86b052cc0711f69d4f61f9f4869f6b95cc4 Your project should now generate the Vector table correctly. Please keep me informed. Regards Anton -- View this message in context: http://free-pascal-general.1045716.n5.nabble.com/Variable-alignment-in-arm-embedded-tp5709962p5710035.html Sent from the Free Pascal - General mailing list archive at Nabble.com. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : [fpc-pascal] Variable alignment in arm-embedded
alrieckert wrote Please just make sure about your starting address for the flash. I'm using the STM32F103CBT6 and the start address is 0x0800 and not 0x080 I've just verified it. The starting address for the flash should be 0x0800. The reason for mine being 0x08003000 is that I'm making use of a USB DFU bootloader to load my program onto the device. Would be nice if we could specify the flash start offset at compile (link) time and not to hard code this into the compiler? Regards Anton -- View this message in context: http://free-pascal-general.1045716.n5.nabble.com/Variable-alignment-in-arm-embedded-tp5709962p5710036.html Sent from the Free Pascal - General mailing list archive at Nabble.com. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : [fpc-pascal] Variable alignment in arm-embedded
On 08-06-12 06:45, Ludo Brands wrote:
Handcrafted alignment:
var
ReservedBlock:array[0..$1FF] of byte;
IntVectors:pointer;
begin
IntVectors:=pointer((ptruint(@ReservedBlock[0])+$100) and not $ff);
End;
Or dynamic:
Var
pReservedBlock,IntVectors:pointer;
begin
Getmem(pReservedBlock,$200);
IntVectors:=pointer((ptruint(pReservedBlock)+$100) and not $ff);
End;
Thanks Ludo,
I'll take that as a starting point. I hope I will not need the lost
256 bytes in the future.
I can replace the IntVectors-pointer with a pointer to a record of
pointers, isn't it ? That way I have a clearer view of what vectors I'm
working with.
TIntVectorTable = record of
NMI_Handler,
HardFault_Handler,
MemManage_Handler,
BusFault_Handler,
UsageFault_Handler,
SWI_Handler,
DebugMonitor_Handler,
PendingSV_Handler,
Systick_Handler,
(* STM32 specific Interrupt Numbers *)
WWDG_Handler,
PVD_Handler,
...
USBWakeUp_Handler : pointer;
end {TIntVectors};
var
IntVectors : ^TIntVectorTable;
ReservedBlock:array[0..$FF+SizeOf(TIntVectorTable)] of byte;
procedure SystickProc; interrupt;
begin
...
end;
begin
IntVectors:=pointer((ptruint(@ReservedBlock[0])+$100) and not $ff);
IntVectors^.SystickHandler:=@SystickProc;
...
end.
Koenraad
___
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
RE : RE : [fpc-pascal] Variable alignment in arm-embedded
Thanks Ludo, I'll take that as a starting point. I hope I will not need the lost 256 bytes in the future. I could be wrong but AFAIK if the compiler would do the alignment, the loss can also be up to 255 bytes. Here you lose 256 bytes in all cases. I can replace the IntVectors-pointer with a pointer to a record of pointers, isn't it ? That way I have a clearer view of what vectors I'm working with. Yes, of course. Ludo ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: RE : RE : [fpc-pascal] Variable alignment in arm-embedded
Den 08-06-2012 14:28, Ludo Brands skrev: Thanks Ludo, I'll take that as a starting point. I hope I will not need the lost 256 bytes in the future. I could be wrong but AFAIK if the compiler would do the alignment, the loss can also be up to 255 bytes. Here you lose 256 bytes in all cases. Yes, but this would allow the linker to place other stuff there which fits in less than 255 bytes. Wasting 255 bytes is a lot on systems that only has a few kilobytes of RAM. I wonder if the restriction of 32 bytes on the align directive could just be removed, or will we need some sort of linker script changes? ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
