mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 10:39:40 +01:00 
			
		
		
		
	+ fake shortstring temp support
git-svn-id: branches/jvmbackend@18542 -
This commit is contained in:
		
							parent
							
								
									1c1fe26ebd
								
							
						
					
					
						commit
						000c502c9c
					
				@ -129,6 +129,19 @@ unit tgcpu;
 | 
				
			|||||||
              result:=true;
 | 
					              result:=true;
 | 
				
			||||||
{$endif}
 | 
					{$endif}
 | 
				
			||||||
            end;
 | 
					            end;
 | 
				
			||||||
 | 
					          stringdef:
 | 
				
			||||||
 | 
					            begin
 | 
				
			||||||
 | 
					              if is_shortstring(def) then
 | 
				
			||||||
 | 
					                begin
 | 
				
			||||||
 | 
					{$ifndef nounsupported}
 | 
				
			||||||
 | 
					                  gettemp(list,java_jlobject.size,java_jlobject.alignment,temptype,ref);
 | 
				
			||||||
 | 
					                  result:=true;
 | 
				
			||||||
 | 
					{$else}
 | 
				
			||||||
 | 
					                  internalerror(2011051701);
 | 
				
			||||||
 | 
					{$endif}
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					                end;
 | 
				
			||||||
 | 
					            end;
 | 
				
			||||||
        end;
 | 
					        end;
 | 
				
			||||||
      end;
 | 
					      end;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user